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

Macro stepper: fixed syntax-snip read-special

Browse Source 
svn: r5543
This commit is contained in:
Ryan Culpepper 2007-02-02 19:30:19 +00:00
parent 432d5349eb
commit d426019579
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/macro-debugger/syntax-browser/syntax-snip.ss
View File

@ -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)))
)) ))