suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

doc work, epseciall I/O and OS reference

Browse Source 
svn: r6808

original commit: cec062435723057d425708b4849d450a80b08378
This commit is contained in:
Matthew Flatt 2007-07-03 12:41:11 +00:00
parent 10218709c7
commit 9b970e0f57
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/scribble/manual.ss
View File

@ -14,6 +14,9 @@
(provide PLaneT)
(define PLaneT "PLaneT")
(provide etc)
(define etc "etc.") ; so we can fix the latex space, one day
(define-code schemeblock0 to-paragraph)
(define-code schemeblock (to-paragraph/prefix (hspace 2)
(hspace 2)
@ -95,7 +98,7 @@
(provide onscreen menuitem defterm
schemefont schemevalfont schemeresultfont schemeidfont
schemeparenfont schemekeywordfont schememetafont schememodfont
file exec
file exec envvar Flag DFlag
link procedure
idefterm)
@ -128,6 +131,12 @@
(make-element 'tt (append (list "\"") (decode-content str) (list "\""))))
(define (exec . str)
(make-element 'tt (decode-content str)))
(define (Flag . str)
(make-element 'tt (cons "-" (decode-content str))))
(define (DFlag . str)
(make-element 'tt (cons "--" (decode-content str))))
(define (envvar . str)
(make-element 'tt (decode-content str)))
(define (procedure . str)
(make-element "schemeresult" (append (list "#<procedure:") (decode-content str) (list ">"))))