#:outputs (package-outputs package)
#:location (package-location package)
#:supported?
- (->bool
- (member (%current-system)
- (package-supported-systems package)))
+ (->bool (supported-package? package))
#:deprecated?
(->bool
(package-superseded package))))
,(module-name module)
,symbol
,(package-outputs package)
- ,(->bool
- (member (%current-system)
- (package-supported-systems package)))
+ ,(->bool (supported-package? package))
,(->bool (package-superseded package))
,@(let ((loc (package-location package)))
(if loc