From 90dfdc9419c10a607c69dc3f90620fbc0ab0e375 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 24 Feb 2017 16:04:36 -0700 Subject: [PATCH] ffi: Remove references to deprecated bindings. --- src/ffi/generator.scm | 2 +- src/ffi/syntax.scm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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)) -- 2.25.1