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

work on guide, and fix problems with scribble/eval

Browse Source 
svn: r8250

original commit: 343308481a82f6999e3d84842babdfd471a3af93
This commit is contained in:
Matthew Flatt 2008-01-07 21:47:22 +00:00
parent c274ee270d
commit ee106049e2
2 changed files with 26 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/scribble/eval.ss
View File

@ -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)])]

28
collects/scribble/manual.ss
View File

@ -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 " "