suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

allow #f as shift for `syntax-shift-phase-level'

Browse Source 
original commit: dbd940611e
This commit is contained in:
Matthew Flatt 2012-05-09 21:17:22 -06:00
parent ae29015ee7
commit 5139f5e8d6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/compiler/zo-structs.rkt
View File

@ -193,7 +193,7 @@
(or/c (or/c
(cons/c symbol? (or/c symbol? #f)) (cons/c symbol? (or/c symbol? #f))
free-id-info?)))))])) free-id-info?)))))]))
(define-form-struct (phase-shift wrap) ([amt exact-integer?] [src (or/c module-path-index? #f)] [dest (or/c module-path-index? #f)])) (define-form-struct (phase-shift wrap) ([amt (or/c exact-integer? #f)] [src (or/c module-path-index? #f)] [dest (or/c module-path-index? #f)]))
(define-form-struct (wrap-mark wrap) ([val exact-integer?])) (define-form-struct (wrap-mark wrap) ([val exact-integer?]))
(define-form-struct (prune wrap) ([sym any/c])) (define-form-struct (prune wrap) ([sym any/c]))