From 64919abe7bf5a79450fe7dd0d011fefd4ec32ff2 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 23 Sep 2008 20:46:58 +0000 Subject: [PATCH] remove old unnecessary function definition svn: r11845 original commit: 5b70b732a5e99823b092cddff565e0c758b2bc19 --- 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 index 3f3c6a8b..50fc30bc 100644 --- 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