From 5139f5e8d61ea62ed7284abcc146727638aa6e0b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 9 May 2012 21:17:22 -0600 Subject: [PATCH] allow #f as shift for `syntax-shift-phase-level' original commit: dbd940611eacd91eb045632a5380b14d808f9396 --- collects/compiler/zo-structs.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/compiler/zo-structs.rkt b/collects/compiler/zo-structs.rkt index 448d43d611..03b53d31dc 100644 --- a/collects/compiler/zo-structs.rkt +++ b/collects/compiler/zo-structs.rkt @@ -193,7 +193,7 @@ (or/c (cons/c symbol? (or/c symbol? #f)) 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 (prune wrap) ([sym any/c]))