From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Tue, 16 Aug 2011 22:16:30 +0000 (-0700)
Subject: Warn of undefined C-enum constants; do not error.
X-Git-Tag: mit-scheme-pucked-9.2.12~640
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5142af386ae6ff8ad6084b6c4f070a309860e530;p=mit-scheme.git

Warn of undefined C-enum constants; do not error.
---

diff --git a/src/ffi/syntax.scm b/src/ffi/syntax.scm
index 43daca4bf..00877991c 100644
--- a/src/ffi/syntax.scm
+++ b/src/ffi/syntax.scm
@@ -238,7 +238,9 @@ USA.
 (define (lookup-enum-value name whole-form includes)
   (let ((entry (assq name (c-includes/enum-values includes))))
     (if (not entry)
-	(serror whole-form "constant not declared")
+	(begin
+	  (warn "no declaration of constant:" name)
+	  0)
 	(cdr entry))))
 
 (define (c-enum-constant-values name form includes)