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

It's a long way to merge a repo

Browse Source 
It's a long way to go
It's a long way to merge a repo
to the sweetest branch I know!

svn: r11846
This commit is contained in:
Stevie Strickland 2008-09-24 03:04:13 +00:00
commit a2807d5cc8
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -126,10 +126,8 @@
(andmap identifier? (syntax->list #'(id ...)))
(if (null? es)
(let ([ids (syntax->list #'(id ...))])
(define (registrar ctx)
(syntax-local-bind-syntaxes
ids (local-transformer-expand #'rhs 'expression '()) ctx))
(registrar (car ctx))
(syntax-local-bind-syntaxes
ids (local-transformer-expand #'rhs 'expression '()) (car ctx))
(loop (cdr exprs) (cons expr* ds) es))
;; return the unexpanded expr, to be re-expanded later, in the
;; right contexts