Removed unused parameter to lookup-enum-value.

diff --git a/src/ffi/syntax.scm b/src/ffi/syntax.scm
index 765dd2da2ff6662f3ba59485dde726ea5e53829d..205096a1d0a7a05f0d476c9febcebda18bd5def0 100644 (file)
--- 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