From f373075a8ec2a0a1e01bd9cad7271d5b679a9dac Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sun, 23 Apr 2017 14:03:42 -0700 Subject: [PATCH] ffi/cdecls: 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