From 0c18e8d2d1cf2114bc358f319aa8633119ac3532 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Tue, 25 Apr 2017 14:01:30 -0700 Subject: [PATCH] ffi: Restore casefulness of .cdecl files. --- src/ffi/cdecls.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/ffi/cdecls.scm b/src/ffi/cdecls.scm index b5ca7d3c7..23e3f6ec4 100644 --- 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) -- 2.25.1