From: Matt Birkholz Date: Sun, 23 Apr 2017 21:03:42 +0000 (-0700) Subject: ffi/cdecls: Restore casefulness of .cdecl files. X-Git-Tag: mit-scheme-pucked-9.2.12~157 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f373075a8ec2a0a1e01bd9cad7271d5b679a9dac;p=mit-scheme.git ffi/cdecls: Restore casefulness of .cdecl files. --- 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)