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

Macro stepper: fixed quasisyntax pretty-print bug

Browse Source 
svn: r6010

original commit: e36f77a7489383efebfffb6f31db793a8a9718ac
This commit is contained in:
Ryan Culpepper 2007-04-21 17:23:38 +00:00
parent df335db310
commit 898d3d554b
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/macro-debugger/syntax-browser/pretty-helper.ss
View File

@ -124,9 +124,7 @@
(let ([kw (car stx-list)] (let ([kw (car stx-list)]
[expr (cadr stx-list)]) [expr (cadr stx-list)])
(and (identifier? kw) (and (identifier? kw)
(memq (syntax-e kw) (memq (syntax-e kw) special-expression-keywords)
'(quote quasiquote unquote unquote-splicing
syntax quasisyntax unsyntax unsyntax-splicing))
(bound-identifier=? kw (datum->syntax-object stx (syntax-e kw))) (bound-identifier=? kw (datum->syntax-object stx (syntax-e kw)))
(andmap (lambda (f) (equal? (f stx) (f kw))) (andmap (lambda (f) (equal? (f stx) (f kw)))
(list syntax-source (list syntax-source
@ -138,6 +136,10 @@
(cons (syntax-e kw) (cons (syntax-e kw)
(list expr)))))) (list expr))))))
(define special-expression-keywords
'(quote quasiquote unquote unquote-splicing syntax))
;; FIXME: quasisyntax unsyntax unsyntax-splicing
(define (unintern sym) (define (unintern sym)
(string->uninterned-symbol (symbol->string sym))) (string->uninterned-symbol (symbol->string sym)))