From d9ecbdc92d9f00de25e8c0cd8f4445c3c0aea35f Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Thu, 18 Aug 2011 20:18:39 -0700 Subject: [PATCH] Removed unused parameter to lookup-enum-value. --- src/ffi/syntax.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.25.1