From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Fri, 24 Feb 2017 23:04:36 +0000 (-0700)
Subject: ffi: Remove references to deprecated bindings.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=90dfdc9419c10a607c69dc3f90620fbc0ab0e375;p=mit-scheme.git

ffi: Remove references to deprecated bindings.
---

diff --git a/src/ffi/generator.scm b/src/ffi/generator.scm
index 5c43d50da..6f63df43b 100644
--- a/src/ffi/generator.scm
+++ b/src/ffi/generator.scm
@@ -33,7 +33,7 @@ USA.
 (define (c-generate library #!optional prefix)
   (let ((prefix (if (default-object? prefix) "" prefix))
 	(includes (include-cdecls library)))
-    (guarantee-string prefix 'c-generate)
+    (guarantee string? prefix 'c-generate)
     (let ((shim.c (string-append library "-shim.c")))
       (if c-generate-noisily?
 	  (with-notification
diff --git a/src/ffi/syntax.scm b/src/ffi/syntax.scm
index e8b72a48c..8c5365e71 100644
--- a/src/ffi/syntax.scm
+++ b/src/ffi/syntax.scm
@@ -503,7 +503,7 @@ USA.
 
 (define (find-c-includes env)
   ;; Returns the c-includes structure bound to 'C-INCLUDES in ENV.
-  (guarantee-syntactic-environment env 'find-c-includes)
+  (guarantee syntactic-environment? env 'find-c-includes)
   (let ((ienv (syntactic-environment->environment env)))
     (if (and (environment-bound? ienv 'C-INCLUDES)
 	     (environment-assigned? ienv 'C-INCLUDES))