ffi: Remove references to deprecated bindings.

diff --git a/src/ffi/generator.scm b/src/ffi/generator.scm
index 5c43d50da71f3d20a70686257d5e88156396e0f1..6f63df43b36534fe6574cd5da6657e3cd3fc479a 100644 (file)
--- 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 e8b72a48c2b81a2789524077b42678d09a5de580..8c5365e71f6dedc16d3a3f2ec4d57f77d8b69ec1 100644 (file)
--- 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))