From 48ca975a7d78b55876a79d3d7dad097a89bb3f25 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 22 Jan 2008 14:38:07 +0000
Subject: [PATCH] repair c-lambda

svn: r8382
---
 collects/compiler/cffi.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/compiler/cffi.ss b/collects/compiler/cffi.ss
index 7664b917b2..0e7a53ffaf 100644
--- a/collects/compiler/cffi.ss
+++ b/collects/compiler/cffi.ss
@@ -275,7 +275,7 @@
                                  "  return converted_result;\n"))))])
 	       (set! ffi-index (add1 ffi-index))
 	       (with-syntax ([fname fname]
-			     [all-code all-code]
+			     [code code]
 			     [arity (length arg-types)]
 			     [proc-name proc-name]
 			     [args (generate-temporaries arg-types)])
@@ -285,7 +285,7 @@
 				   '(fname
 				     proc-name
 				     arity
-				     all-code)))])
+				     code)))])
 		   (syntax-property stx-out 'mzc-cffi 'c-lambda)))))]))))
   
   (define-syntax (c-declare stx)