bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit fd4de66c02baeef18a04017cc8e98674bfe03ed0
parent f6524e98a9f8df275ee3be4b1e534fdd995866f1
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon, 17 Dec 2007 16:23:54 +0000

tweak mzscheme's help form

svn: r8036

original commit: 5b984bc34ee2783820c20d5ed05ca10cb6505ad2

Diffstat:
M
collects/scribble/manual.ss
 | 
8
+++++---

1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
@@ -601,11 +601,13 @@
       [(_ spec subs desc ...) #'(defform*/subs [spec] subs desc ...)]))
   (define-syntax (defform/none stx)
     (syntax-case stx ()
-      [(_ spec desc ...)
-       #'(*defforms #f null
+      [(_ #:literals (lit ...) spec desc ...)
+       #'(*defforms #f '(lit ...)
                     '(spec) (list (lambda (ignored) (schemeblock0/form spec))) 
                     null null
-                    (lambda () (list desc ...)))]))
+                    (lambda () (list desc ...)))]
+      [(_ spec desc ...)
+       #'(defform/none #:literals () spec desc ...)]))
   (define-syntax (defidform stx)
     (syntax-case stx ()
       [(_ spec-id desc ...)