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

make the special evaluator work with errortrace

Browse Source 
svn: r1158
This commit is contained in:
Eli Barzilay 2005-10-25 19:41:58 +00:00
parent f0e49143d5
commit 28f05eb7e6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/swindle/html.ss
View File

@ -66,7 +66,7 @@
[(: x . xs) (loop #'xs (cons #'x a))] [(: x . xs) (loop #'xs (cons #'x a))]
[xs (values (reverse! a) #'xs)]))) [xs (values (reverse! a) #'xs)])))
(orig-eval (orig-eval
(let loop ([expr (datum->syntax-object #f expr)] [q 0]) (let loop ([expr expr] [q 0])
(syntax-case expr (: _) (syntax-case expr (: _)
[(_ x _ . r) (string? (syntax-e #'x)) [(_ x _ . r) (string? (syntax-e #'x))
(let ([strs (map (lambda (s) (datum->syntax-object #'x s)) (let ([strs (map (lambda (s) (datum->syntax-object #'x s))