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

make syntax print as #'

Browse Source 
original commit: 93282314adb481f888bb9c425bb1686e8e2c49aa
This commit is contained in:
Robby Findler 2001-09-01 02:41:33 +00:00
parent b7d32b3d69
commit 7c7739fe7b
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/mzlib/pretty.ss
View File

@ -317,8 +317,9 @@
(define (length1? l) (and (pair? l) (null? (cdr l)))) (define (length1? l) (and (pair? l) (null? (cdr l))))
(let ((head (car l)) (tail (cdr l))) (let ((head (car l)) (tail (cdr l)))
(case head (case head
((quote quasiquote unquote unquote-splicing) (length1? tail)) ((quote quasiquote unquote unquote-splicing syntax)
(else #f)))) (length1? tail))
(else #f))))
(define (read-macro-body l) (define (read-macro-body l)
(cadr l)) (cadr l))
@ -329,7 +330,8 @@
((quote) "'") ((quote) "'")
((quasiquote) "`") ((quasiquote) "`")
((unquote) ",") ((unquote) ",")
((unquote-splicing) ",@")))) ((unquote-splicing) ",@")
((syntax) "#'"))))
(define (drop-repeated l) (define (drop-repeated l)
(if (null? l) (if (null? l)