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

remove old unnecessary function definition

Browse Source 
svn: r11845

original commit: 5b70b732a5e99823b092cddff565e0c758b2bc19
This commit is contained in:
Eli Barzilay 2008-09-23 20:46:58 +00:00
parent 1171920a82
commit 64919abe7b
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 ...))) (andmap identifier? (syntax->list #'(id ...)))
(if (null? es) (if (null? es)
(let ([ids (syntax->list #'(id ...))]) (let ([ids (syntax->list #'(id ...))])
(define (registrar ctx) (syntax-local-bind-syntaxes
(syntax-local-bind-syntaxes ids (local-transformer-expand #'rhs 'expression '()) (car ctx))
ids (local-transformer-expand #'rhs 'expression '()) ctx))
(registrar (car ctx))
(loop (cdr exprs) (cons expr* ds) es)) (loop (cdr exprs) (cons expr* ds) es))
;; return the unexpanded expr, to be re-expanded later, in the ;; return the unexpanded expr, to be re-expanded later, in the
;; right contexts ;; right contexts