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) (provide PLaneT)
(define PLaneT "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 schemeblock0 to-paragraph)
(define-code schemeblock (to-paragraph/prefix (hspace 2) (define-code schemeblock (to-paragraph/prefix (hspace 2)
(hspace 2) (hspace 2)
@ -95,7 +98,7 @@
(provide onscreen menuitem defterm (provide onscreen menuitem defterm
schemefont schemevalfont schemeresultfont schemeidfont schemefont schemevalfont schemeresultfont schemeidfont
schemeparenfont schemekeywordfont schememetafont schememodfont schemeparenfont schemekeywordfont schememetafont schememodfont
file exec file exec envvar Flag DFlag
link procedure link procedure
idefterm) idefterm)
@ -128,6 +131,12 @@
(make-element 'tt (append (list "\"") (decode-content str) (list "\"")))) (make-element 'tt (append (list "\"") (decode-content str) (list "\""))))
(define (exec . str) (define (exec . str)
(make-element 'tt (decode-content 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) (define (procedure . str)
(make-element "schemeresult" (append (list "#<procedure:") (decode-content str) (list ">")))) (make-element "schemeresult" (append (list "#<procedure:") (decode-content str) (list ">"))))