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

doc updates for v4.1.5.2

Browse Source 
svn: r14161

original commit: 9335e3cf285f6f25a100005fb69be0019646db29
This commit is contained in:
Matthew Flatt 2009-03-17 21:06:42 +00:00
parent 90c669ce1b
commit 241883588d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scribble/text/syntax-utils.ss
View File

@ -159,8 +159,10 @@
(cond [(pair? rest) #`(list* #,@nondefns (begin/collect* #t #,@rest))]
[(and (not always-list?) (= 1 (length nondefns))) (car nondefns)]
[else #`(list #,@nondefns)]))
(local-expand (if (null? defns) body #`(let () #,@defns #,body))
context stoplist (car context)))
(begin0
(local-expand (if (null? defns) body #`(let () #,@defns #,body))
context stoplist (car context))
(internal-definition-context-seal (car context))))
(define-syntax-rule (begin/collect x ...) (begin/collect* #f x ...))
;; begin for templates (allowing definition blocks)