fixed mapped id application context
svn: r1198
This commit is contained in:
parent
81dc642c4e
commit
e46ea7dbb2
|
@ -28,7 +28,7 @@
|
||||||
(binding
|
(binding
|
||||||
the-binder (car (syntax-e sstx))
|
the-binder (car (syntax-e sstx))
|
||||||
(datum->syntax-object
|
(datum->syntax-object
|
||||||
set!-stx
|
sstx
|
||||||
(cons unbox-stx (cdr (syntax-e sstx)))
|
(cons unbox-stx (cdr (syntax-e sstx)))
|
||||||
sstx))])))))
|
sstx))])))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user