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

commit ee106049e282d2c632f312a7a399156385af23c7
parent c274ee270de37f0ef4f53b60c20d57367304e93e
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon,  7 Jan 2008 21:47:22 +0000

work on guide, and fix problems with scribble/eval

svn: r8250

original commit: 343308481a82f6999e3d84842babdfd471a3af93

Diffstat:
M
collects/scribble/eval.ss
 | 
21
+++++++++++----------
M
collects/scribble/manual.ss
 | 
28
+++++++++++++++-------------

2 files changed, 26 insertions(+), 23 deletions(-)
diff --git a/collects/scribble/eval.ss b/collects/scribble/eval.ss
@@ -193,7 +193,7 @@
              [comment? (lambda (a)
                          (and (pair? a)
                               (or (eq? (car a) 'code:comment)
-                                  (and (identifier? a)
+                                  (and (identifier? (car a))
                                        (eq? (syntax-e (car a)) 'code:comment)))))])
          (if (or (comment? a)
                  (and (syntax? a) (comment? (syntax-e a))))
@@ -217,12 +217,15 @@
                          ev
                          catching-exns? 
                          (let ([s (strip-comments s)])
-                           (if (syntax? s)
-                               (syntax-case s (module)
-                                 [(module . _rest)
-                                  (syntax->datum s)]
-                                 [_else s])
-                               s))))
+                           (cond
+                            [(syntax? s)
+                             (syntax-case s (module)
+                               [(module . _rest)
+                                (syntax->datum s)]
+                               [_else s])]
+                            [(string? s)
+                             `(begin ,s)]
+                            [else s]))))
       list))
 
   (define-syntax-rule (quote-expr e) 'e)
@@ -262,9 +265,7 @@
                                                      (list " ")))
 
   (define-syntax (schemedefinput* stx)
-    (syntax-case stx (eval-example-string define define-values define-struct)
-      [(_ (eval-example-string s))
-       #'(schemeinput* (eval-example-string s))]
+    (syntax-case stx (define define-values define-struct)
       [(_ (define . rest))
        (syntax-case stx ()
          [(_ e) #'(schemeblock+line e)])]
diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
@@ -1861,26 +1861,28 @@
       #f
       (append
        (if author
-           (list author
-                 ", ")
+           (append (decode-content (list author))
+                   (list ", "))
            null)
-       (list 'ldquo
-             title
-             (if location
+       (list 'ldquo)
+       (decode-content (list title))
+       (list (if location
                  "," 
                  ".")
              'rdquo)
        (if location
-           (list " "
-                 location
-                 (if date 
-                     ","
-                     "."))
+           (cons " "
+                 (append
+                  (decode-content (list location))
+                  (list
+                   (if date 
+                      ","
+                      "."))))
            null)
        (if date
-           (list " "
-                 date
-                 ".")
+           (cons " "
+                 (append (decode-content (list date))
+                         (list ".")))
            null)
        (if url
            (list " "