make syntax print as #'

original commit: 93282314adb481f888bb9c425bb1686e8e2c49aa
2001-09-01 02:41:33 +00:00 · 2001-09-01 02:41:33 +00:00 · 7c7739fe7b
commit 7c7739fe7b
parent b7d32b3d69
1 changed files with 5 additions and 3 deletions
--- a/collects/mzlib/pretty.ss
+++ b/collects/mzlib/pretty.ss
@ -317,8 +317,9 @@
 	  (define (length1? l) (and (pair? l) (null? (cdr l))))
 	  (let ((head (car l)) (tail (cdr l)))
 	    (case head
-	      ((quote quasiquote unquote unquote-splicing) (length1? tail))
-	      (else                                        #f))))
+	      ((quote quasiquote unquote unquote-splicing syntax)
+               (length1? tail))
+	      (else #f))))

       (define (read-macro-body l)
 	 (cadr l))
@ -329,7 +330,8 @@
 	     ((quote)            "'")
 	     ((quasiquote)       "`")
 	     ((unquote)          ",")
-	     ((unquote-splicing) ",@"))))
+	     ((unquote-splicing) ",@")
+             ((syntax)           "#'"))))

       (define (drop-repeated l)
 	 (if (null? l)