bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 64919abe7bf5a79450fe7dd0d011fefd4ec32ff2
parent 1171920a82c3d340b396c41d991a147724560163
Author: Eli Barzilay <eli@racket-lang.org>
Date:   Tue, 23 Sep 2008 20:46:58 +0000

remove old unnecessary function definition

svn: r11845

original commit: 5b70b732a5e99823b092cddff565e0c758b2bc19

Diffstat:
M
collects/scribble/text/syntax-utils.ss
 | 
6
++----

1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/collects/scribble/text/syntax-utils.ss b/collects/scribble/text/syntax-utils.ss
@@ -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