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

fixed order-of-annotator error

Browse Source
This commit is contained in:
Spencer Florence 2015-05-30 10:10:51 -05:00
parent 55d72fc5d6
commit a5fe5a42df
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
strace.rkt
View File

@ -85,6 +85,13 @@
#'(m name lang #'(m name lang
(#%module-begin add ... body ...))) (#%module-begin add ... body ...)))
(rebuild-syntax stx disarmed expr))]))] (rebuild-syntax stx disarmed expr))]))]
[(b a ...)
(eq? 'begin (syntax-e #'b))
(let ()
(define/with-syntax (body ...)
(map (lambda (e) (loop e #f))
(syntax->list #'(a ...))))
#'(b body ...))]
[_ (if top #f expr)]))) [_ (if top #f expr)])))
(define inspector (variable-reference->module-declaration-inspector (define inspector (variable-reference->module-declaration-inspector
@ -151,10 +158,9 @@
(define (rebuild-syntax stx disarmed armed) (define (rebuild-syntax stx disarmed armed)
(syntax-rearm (syntax-rearm
(namespace-syntax-introduce
(datum->syntax (datum->syntax
disarmed disarmed
(syntax-e stx) (syntax-e stx)
disarmed disarmed
disarmed)) disarmed)
armed)) armed))