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

document the scheme/control library

Browse Source 
svn: r7971

original commit: 020948cf1baf318dc37f0d7a9483de8c5e5dd5f9
This commit is contained in:
Matthew Flatt 2007-12-12 18:19:07 +00:00
parent 45c8f79865
commit 89a582c874
1 changed files with 34 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
collects/scribble/manual.ss
View File

@ -438,6 +438,7 @@
;; ---------------------------------------- ;; ----------------------------------------
(provide declare-exporting (provide declare-exporting
deftogether
defproc defproc* defstruct defthing defthing* defparam defboolparam defproc defproc* defstruct defthing defthing* defparam defboolparam
defform defform* defform/subs defform*/subs defform/none defform defform* defform/subs defform*/subs defform/none
defidform defidform
@ -769,6 +770,24 @@
(lambda (render part ri) (lambda (render part ri)
(proc (proc
(or (get-exporting-libraries render part ri) null))))) (or (get-exporting-libraries render part ri) null)))))
(define (*deftogether boxes . body)
(make-splice
(cons
(make-table
'boxed
(map (lambda (box)
(unless (and (splice? box)
(= 1 (length (splice-run box)))
(table? (car (splice-run box)))
(eq? 'boxed (table-style (car (splice-run box)))))
(error 'deftogether "element is not a splice containing a single table: ~e" box))
(list (make-flow (list (make-table #f (table-flowss (car (splice-run box))))))))
boxes))
body)))
(define-syntax-rule (deftogether (box ...) . body)
(*deftogether (list box ...) . body))
(define (*defproc mode within-id (define (*defproc mode within-id
stx-ids prototypes arg-contractss arg-valss result-contracts content-thunk) stx-ids prototypes arg-contractss arg-valss result-contracts content-thunk)
@ -1581,11 +1600,22 @@
(rename-out [a-bib-entry? bib-entry?]) (rename-out [a-bib-entry? bib-entry?])
bibliography) bibliography)
(define (cite key) (define (cite key . keys)
(make-link-element (make-element
#f #f
(list (format "[~a]" key)) (list "["
`(cite ,key))) (let loop ([keys (cons key keys)])
(if (null? (cdr keys))
(make-link-element
#f
(list (car keys))
`(cite ,(car keys)))
(make-element
#f
(list (loop (list (car keys)))
", "
(loop (cdr keys))))))
"]")))
(define-struct a-bib-entry (key val)) (define-struct a-bib-entry (key val))