From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Fri, 24 Feb 2017 23:17:13 +0000 (-0700)
Subject: runtime/ffi.scm: Missed guarantee-string -> guarantee bytevector?.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=932240d6018367823d3216c65fd782f4fce1f835;p=mit-scheme.git

runtime/ffi.scm: Missed guarantee-string -> guarantee bytevector?.
---

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)