From fd4de66c02baeef18a04017cc8e98674bfe03ed0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 17 Dec 2007 16:23:54 +0000
Subject: [PATCH] tweak mzscheme's help form

svn: r8036

original commit: 5b984bc34ee2783820c20d5ed05ca10cb6505ad2
---
 collects/scribble/manual.ss | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
index 35833269..fa4c47ea 100644
--- 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 ...)