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

tweak mzscheme's help form

Browse Source 
svn: r8036

original commit: 5b984bc34ee2783820c20d5ed05ca10cb6505ad2
This commit is contained in:
Matthew Flatt 2007-12-17 16:23:54 +00:00
parent f6524e98a9
commit fd4de66c02
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/scribble/manual.ss
View File

@ -601,11 +601,13 @@
[(_ spec subs desc ...) #'(defform*/subs [spec] subs desc ...)])) [(_ spec subs desc ...) #'(defform*/subs [spec] subs desc ...)]))
(define-syntax (defform/none stx) (define-syntax (defform/none stx)
(syntax-case stx () (syntax-case stx ()
[(_ spec desc ...) [(_ #:literals (lit ...) spec desc ...)
#'(*defforms #f null #'(*defforms #f '(lit ...)
'(spec) (list (lambda (ignored) (schemeblock0/form spec))) '(spec) (list (lambda (ignored) (schemeblock0/form spec)))
null null null null
(lambda () (list desc ...)))])) (lambda () (list desc ...)))]
[(_ spec desc ...)
#'(defform/none #:literals () spec desc ...)]))
(define-syntax (defidform stx) (define-syntax (defidform stx)
(syntax-case stx () (syntax-case stx ()
[(_ spec-id desc ...) [(_ spec-id desc ...)