From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Thu, 12 Jul 2012 21:48:15 +0000 (-0700)
Subject: ffi/Makefile-fragment: Always wrap stdin in a (begin ...)...
X-Git-Tag: release-9.2.0~241
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=731ad8f46977583c3752b55b72dee932f5f76c64;p=mit-scheme.git

ffi/Makefile-fragment: Always wrap stdin in a (begin ...)...
---

diff --git a/src/ffi/Makefile-fragment b/src/ffi/Makefile-fragment
index ca7134a74..f16a50c6b 100644
--- a/src/ffi/Makefile-fragment
+++ b/src/ffi/Makefile-fragment
@@ -28,8 +28,9 @@ ffi-test-shim.o: ffi-test-shim.c ffi-test.h
 	$(COMPILE_SHIM) -c $*.c
 
 ffi-test-shim.c ffi-test-const.c ffi-test-types.bin: ffi-test.cdecl
-	(echo "(load-option 'FFI)"; \
-	 echo '(C-generate "ffi-test" "#include \"ffi-test.h\"")') \
+	(echo "(begin"; \
+	 echo "  (load-option 'FFI)"; \
+	 echo '  (C-generate "ffi-test" "#include \"ffi-test.h\""))') \
 	| ../microcode/scheme --library ../lib --batch-mode
 
 ffi-test-const.bin: ffi-test-const.scm