From 5142af386ae6ff8ad6084b6c4f070a309860e530 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Tue, 16 Aug 2011 15:16:30 -0700 Subject: [PATCH] Warn of undefined C-enum constants; do not error. --- src/ffi/syntax.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 2.25.1