ffi/cdecls: Restore casefulness of .cdecl files.

diff --git a/src/ffi/cdecls.scm b/src/ffi/cdecls.scm
index b5ca7d3c777a57afc2c526ec815e82386c7ae139..23e3f6ec4e018fa9bb8e20c69d9124576f6c4b0d 100644 (file)
--- a/src/ffi/cdecls.scm
+++ b/src/ffi/cdecls.scm
@@ -90,7 +90,10 @@ USA.
            (call-with-input-file namestring
              (lambda (inport)
                (let loop ()
-                 (let ((form (read inport)))
+                 (let ((form
+                        (parameterize* (list (cons param:parser-fold-case? #f))
+                          (lambda ()
+                            (read inport)))))
                    (if (not (eof-object? form))
                        (begin
                          (include-cdecl form new-cwd twd includes)