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

changed the meaning of one of the pretty-print parameters slightly and used that to fix redex's stepper

Browse Source 
svn: r15419

original commit: 5adb4eb004a2912b2d14533f18a48e6db3855577
This commit is contained in:
Robby Findler 2009-07-09 15:55:11 +00:00
parent 4b6a08e64a
commit 65dbe29cbf
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/pretty.ss
View File

@ -1186,7 +1186,7 @@
(define (read-macro? l pair? car cdr)
(define (length1? l) (and (pair? l) (null? (cdr l))))
(and (pretty-print-abbreviate-read-macros)
(let ((head (car l)) (tail (cdr l)))
(let ((head (do-remap (car l))) (tail (cdr l)))
(case head
((quote quasiquote unquote unquote-splicing syntax unsyntax unsyntax-splicing)
(length1? tail))
@ -1196,7 +1196,7 @@
(car (cdr l)))
(define (read-macro-prefix l car)
(let ((head (car l)))
(let ((head (do-remap (car l))))
(case head
((quote) "'")
((quasiquote) "`")