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

commit c049ea87f094ef3c6e67a00e47d2da4a09de2409
parent ef13a0dbcc9955d6e9e4eb80b72908862b640e4f
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Wed,  6 Jun 2007 01:13:51 +0000

reference-manual work

svn: r6495

original commit: 8d61bb4c70c24156e4bc6d98d023ccd40fb49a19

Diffstat:
M
collects/scribble/manual.ss
 | 
27
++++++++++++++++++++-------
M
collects/scribble/scheme.ss
 | 
6
++++--

2 files changed, 24 insertions(+), 9 deletions(-)
diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
@@ -34,9 +34,9 @@
       [(_ lang rest ...)
        (with-syntax ([modtag (datum->syntax-object
                               #'here
-                              '(unsyntax (schemefont "#module "))
+                              `(unsyntax (schemefont ,(format "#module ~a" (syntax-e #'lang))))
                               #'lang)])
-         #'(schemeblock modtag lang rest ...))]))
+         #'(schemeblock modtag rest ...))]))
 
   (define (to-element/result s)
     (make-element "schemeresult" (list (to-element/no-color s))))
@@ -137,8 +137,17 @@
 
   ;; ----------------------------------------
 
+  (provide margin-note)
+  
+  (define (margin-note . c)
+    (make-styled-paragraph (list (make-element "refcontent"
+                                               c))
+                           "refpara"))
+
+  ;; ----------------------------------------
+
   (provide defproc defproc* defstruct defthing defform defform* defform/none
-           specsubform specsubform/inline
+           specform specsubform specsubform/inline
            var svar void-const undefined-const)
 
   (define void-const
@@ -190,11 +199,15 @@
   (define-syntax specsubform
     (syntax-rules ()
       [(_ spec desc ...)
-       (*specsubform 'spec (lambda () (schemeblock0 spec)) (lambda () (list desc ...)))]))
+       (*specsubform 'spec #f (lambda () (schemeblock0 spec)) (lambda () (list desc ...)))]))
+  (define-syntax specform
+    (syntax-rules ()
+      [(_ spec desc ...)
+       (*specsubform 'spec #t (lambda () (schemeblock0 spec)) (lambda () (list desc ...)))]))
   (define-syntax specsubform/inline
     (syntax-rules ()
       [(_ spec desc ...)
-       (*specsubform 'spec #f (lambda () (list desc ...)))]))
+       (*specsubform 'spec #f #f (lambda () (list desc ...)))]))
   (define-syntax defthing
     (syntax-rules ()
       [(_ id result desc ...)
@@ -429,9 +442,9 @@
               forms form-procs))
         (content-thunk)))))
 
-  (define (*specsubform form form-thunk content-thunk)
+  (define (*specsubform form has-kw? form-thunk content-thunk)
     (parameterize ([current-variable-list
-                    (append (let loop ([form form])
+                    (append (let loop ([form (if has-kw? (cdr form) form)])
                               (cond
                                [(symbol? form) (if (meta-symbol? form)
                                                    null
diff --git a/collects/scribble/scheme.ss b/collects/scribble/scheme.ss
@@ -1,7 +1,8 @@
 (module scheme mzscheme
   (require "struct.ss"
            "basic.ss"
-           (lib "class.ss"))
+           (lib "class.ss")
+           (lib "for.ss"))
 
   (provide define-code
            to-element
@@ -92,7 +93,8 @@
                 [l (syntax-line c)])
             (let ([new-line? (and l (l . > . line))])
               (when new-line?
-                (out "\n" no-color)
+                (for ([i (in-range (- l line))])
+                  (out "\n" no-color))
                 (set! line l)
                 (set! col-map next-col-map)
                 (set! next-col-map (make-hash-table 'equal))