From 7c7739fe7b87fa62265f2f12503b59106a666120 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 1 Sep 2001 02:41:33 +0000 Subject: [PATCH] make syntax print as #' original commit: 93282314adb481f888bb9c425bb1686e8e2c49aa --- collects/mzlib/pretty.ss | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/mzlib/pretty.ss b/collects/mzlib/pretty.ss index 1a733a6..a75a908 100644 --- 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)