fix probable bug

svn: r12445
This commit is contained in:
Eli Barzilay 2008-11-14 08:02:21 +00:00
parent 984e6d7e2a
commit 7563016cf8

View File

@ -516,7 +516,7 @@
;; It's a null: ;; It's a null:
expr] expr]
[(syntax-case* expr (#%plain-app void) [(syntax-case* expr (#%plain-app void)
(if phase (if (positive? phase)
free-transformer-identifier=? free-transformer-identifier=?
free-identifier=?) free-identifier=?)
[(#%plain-app void) #t] [(#%plain-app void) #t]