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

singular label on 'examples' output when a single expression is given

Browse Source 
svn: r15106
This commit is contained in:
Matthew Flatt 2009-06-06 15:09:36 +00:00
parent 5ae285f744
commit 3bb875b4f7
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/scribble/eval.ss
View File

@ -374,13 +374,21 @@
(defs+int #:eval (make-base-eval) [def ...] e ...)])) (defs+int #:eval (make-base-eval) [def ...] e ...)]))
(define example-title (define example-title
(make-paragraph (list "Example:")))
(define examples-title
(make-paragraph (list "Examples:"))) (make-paragraph (list "Examples:")))
(define-syntax pick-example-title
(syntax-rules ()
[(_ e) example-title]
[(_ . _) examples-title]))
(define-syntax examples (define-syntax examples
(syntax-rules () (syntax-rules ()
[(_ #:eval ev e ...) [(_ #:eval ev e ...)
(titled-interaction #:eval ev example-title schemeinput* e ...)] (titled-interaction #:eval ev (pick-example-title e ...) schemeinput* e ...)]
[(_ e ...) [(_ e ...)
(titled-interaction example-title schemeinput* e ...)])) (titled-interaction (pick-example-title e ...) schemeinput* e ...)]))
(define-syntax examples* (define-syntax examples*
(syntax-rules () (syntax-rules ()
[(_ #:eval ev example-title e ...) [(_ #:eval ev example-title e ...)
@ -390,9 +398,9 @@
(define-syntax defexamples (define-syntax defexamples
(syntax-rules () (syntax-rules ()
[(_ #:eval ev e ...) [(_ #:eval ev e ...)
(titled-interaction #:eval ev example-title schemedefinput* e ...)] (titled-interaction #:eval ev (pick-example-title e ...) schemedefinput* e ...)]
[(_ e ...) [(_ e ...)
(titled-interaction example-title schemedefinput* e ...)])) (titled-interaction (pick-example-title e ...) schemedefinput* e ...)]))
(define-syntax defexamples* (define-syntax defexamples*
(syntax-rules () (syntax-rules ()
[(_ #:eval ev example-title e ...) [(_ #:eval ev example-title e ...)
@ -409,7 +417,7 @@
(define as-examples (define as-examples
(case-lambda (case-lambda
[(t) (as-examples example-title t)] [(t) (as-examples examples-title t)]
[(example-title t) [(example-title t)
(make-table #f (make-table #f
(list (list