Moved this-package-version-symbol from unstable/planet to planet/version.
Could not put it in planet/util because it depends on planet/util at phase 1. Re-exported the other "this-package" macros from planet/version. Modified this-package-in to take multiple suffix identifiers and to treat the suffix "main" specially, and generate (planet owner/name:X:Y) instead of (planet owner/name:X:Y/main).
This commit is contained in:
parent
debad064e7
commit
557fd0fca6
26
collects/planet/version.rkt
Normal file
26
collects/planet/version.rkt
Normal file
|
@ -0,0 +1,26 @@
|
|||
#lang racket/base
|
||||
|
||||
(provide this-package-version
|
||||
this-package-version-name
|
||||
this-package-version-owner
|
||||
this-package-version-maj
|
||||
this-package-version-min
|
||||
this-package-version-symbol
|
||||
this-package-in)
|
||||
|
||||
(require
|
||||
planet/util
|
||||
(for-syntax
|
||||
racket/base
|
||||
racket/require-transform
|
||||
syntax/parse
|
||||
planet/syntax))
|
||||
|
||||
(define-syntax this-package-in
|
||||
(make-require-transformer
|
||||
(syntax-parser
|
||||
[(~and src (_ (~or (~datum main) suffix:id) ...))
|
||||
(expand-import
|
||||
#`(combine-in
|
||||
#,@(for/list ([suf (in-list (attribute suffix))])
|
||||
(make-planet-require-spec #'src suf))))])))
|
Loading…
Reference in New Issue
Block a user