From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 25 Apr 2017 21:01:30 +0000 (-0700)
Subject: ffi: Restore casefulness of .cdecl files.
X-Git-Tag: mit-scheme-pucked-9.2.12~153^2~8
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0c18e8d2d1cf2114bc358f319aa8633119ac3532;p=mit-scheme.git

ffi: 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)