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

fixed a bug in the way quote was handled

Browse Source 
svn: r15308
This commit is contained in:
Robby Findler 2009-06-26 19:22:03 +00:00
parent 8e0e67cef4
commit d007777e2a
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/redex/private/reduction-semantics.ss
View File

@ -25,10 +25,7 @@
(datum->syntax (datum->syntax
(identifier-prune-lexical-context #'whatever '(#%app #%datum)) (identifier-prune-lexical-context #'whatever '(#%app #%datum))
(let loop ([stx stx]) (let loop ([stx stx])
(syntax-case stx (quote) (syntax-case stx ()
[(quote x)
(list (quote-syntax/prune quote)
(syntax->datum #'x))]
[(a . b) [(a . b)
(datum->syntax (identifier-prune-lexical-context #'whatever '(#%app)) (datum->syntax (identifier-prune-lexical-context #'whatever '(#%app))
(cons (loop #'a) (loop #'b)) (cons (loop #'a) (loop #'b))

8
collects/redex/private/tl-test.ss
View File

@ -639,6 +639,14 @@
(test (term (f 1 1 1 1 1)) (term 1))) (test (term (f 1 1 1 1 1)) (term 1)))
(let ()
(define-metafunction empty-language
[(ex variable_x)
variable_x
(where quote variable_x)])
(test (term (ex quote)) (term quote)))
; ;