bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 9b970e0f5761c7ec5b07995540b598d3b6ae2dfb
parent 10218709c7353dd9fe50add0b1955f507ac9e3c5
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Tue,  3 Jul 2007 12:41:11 +0000

doc work, epseciall I/O and OS reference

svn: r6808

original commit: cec062435723057d425708b4849d450a80b08378

Diffstat:
M
collects/scribble/manual.ss
 | 
11
++++++++++-

1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
@@ -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 ">"))))