From a5b71fccbfa90ec9c31bf2ba10ea9e0d945ff221 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 19 Mar 2007 22:08:09 +0000 Subject: [PATCH] error-message typo svn: r5797 --- collects/compiler/private/xform.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/compiler/private/xform.ss b/collects/compiler/private/xform.ss index af7867d7e2..b270ba1967 100644 --- a/collects/compiler/private/xform.ss +++ b/collects/compiler/private/xform.ss @@ -2683,7 +2683,7 @@ ;; We're not really interested in the conversion. ;; We just want to get live vars and ;; complain about function calls in the decl area: - (convert-function-calls (car el) extra-vars &-vars c++-class live-vars "in decls" #f #t)]) + (convert-function-calls (car el) extra-vars &-vars c++-class live-vars "decls" #f #t)]) (dloop (cdr el) live-vars))))))]) ;; Calculate vars to push in this block. Make sure there are no duplicates. (let ([newly-pushed (let ([ht (make-hash-table)])