From 932240d6018367823d3216c65fd782f4fce1f835 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 24 Feb 2017 16:17:13 -0700 Subject: [PATCH] runtime/ffi.scm: Missed guarantee-string -> guarantee bytevector?. --- src/runtime/ffi.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/runtime/ffi.scm b/src/runtime/ffi.scm index d03c93cf7..c3f51eae8 100644 --- a/src/runtime/ffi.scm +++ b/src/runtime/ffi.scm @@ -329,7 +329,7 @@ USA. (define (c-poke-string! alien bytevector) ;; Like c-poke-string, but increments ALIEN past the terminating null byte. - (guarantee-string bytevector 'C-POKE-STRING!) + (guarantee bytevector? bytevector 'C-POKE-STRING!) ((ucode-primitive c-poke-string! 3) alien 0 bytevector)) (define-integrable (c-poke-bytes alien offset count buffer start) -- 2.25.1