Macro stepper: fixed syntax-snip read-special
svn: r5543 original commit: d426019579731e329d13d2c8e773544c22e1838e
This commit is contained in:
parent
3f810108ff
commit
d4b7882999
|
@ -84,7 +84,8 @@
|
||||||
;; Produces 3D syntax to preserve eq-ness of syntax
|
;; Produces 3D syntax to preserve eq-ness of syntax
|
||||||
;; #'#'stx would be lose identity when wrapped
|
;; #'#'stx would be lose identity when wrapped
|
||||||
(define/public (read-special src line col pos)
|
(define/public (read-special src line col pos)
|
||||||
#`((,(lambda () stx))))
|
(with-syntax ([p (lambda () stx)])
|
||||||
|
#'(p)))
|
||||||
))
|
))
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user