From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Fri, 19 Aug 2011 03:18:39 +0000 (-0700)
Subject: Removed unused parameter to lookup-enum-value.
X-Git-Tag: release-9.2.0~347^2~2^2~3
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d9ecbdc92d9f00de25e8c0cd8f4445c3c0aea35f;p=mit-scheme.git

Removed unused parameter to lookup-enum-value.
---

diff --git a/src/ffi/syntax.scm b/src/ffi/syntax.scm
index 765dd2da2..205096a1d 100644
--- a/src/ffi/syntax.scm
+++ b/src/ffi/syntax.scm
@@ -227,7 +227,7 @@ USA.
       (lambda (name value-form)
 	(let* ((includes (find-c-includes usage-env)))
 	  (if (not value-form)
-	      (lookup-enum-value name form includes)
+	      (lookup-enum-value name includes)
 	      (if (integer? value-form)
 		  (c-enum-name value-form name
 				(c-enum-constant-values name form includes))
@@ -235,7 +235,7 @@ USA.
 			(constants (c-enum-constant-values name form includes)))
 		    `(C-ENUM-NAME ,value ',name ',constants))))))))))
 
-(define (lookup-enum-value name whole-form includes)
+(define (lookup-enum-value name includes)
   (let ((entry (assq name (c-includes/enum-values includes))))
     (if (not entry)
 	(begin