suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed some bugs that broke the build

Browse Source 
svn: r13838
This commit is contained in:
Robby Findler 2009-02-25 18:18:34 +00:00
parent e36cde06e5
commit 0e3b74d125
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribble/lp/lang/lang.ss
View File

@ -29,7 +29,7 @@
(define-syntax (tangle stx)
(define chunk-mentions '())
(define stupid-internal-definition-sytnax
(unless main-id
(unless first-id
(raise-syntax-error 'scribble/lp "no chunks")))
(define body
(let loop ([block (if main-id

13
collects/scribble/private/lp.ss
View File

@ -40,7 +40,18 @@
(map (lambda (expr)
(syntax-case expr (require)
[(require mod ...)
#'(mod ...)]
(let loop ([mods (syntax->list #'(mod ...))])
(cond
[(null? mods) null]
[else
(syntax-case (car mods) (for-syntax)
[(for-syntax x ...)
(loop (cdr mods))
#;
(append (loop (syntax->list #'(x ...)))
(loop (cdr mods)))]
[x
(cons #'x (loop (cdr mods)))])]))]
[else null]))
(syntax->list #'(expr ...)))])
(syntax-local-lift-require