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

diff --git a/src/ffi/syntax.scm b/src/ffi/syntax.scm
index 43daca4bfd558230bcbae0b1025fad31b34e8b5c..00877991cec6e3c633edc5781192aedbf336ac1c 100644 (file)
--- 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)