From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 23 May 2017 23:43:28 +0000 (-0700)
Subject: test-ffi-wrapper: c-peek-cstring can now return a legacy string.
X-Git-Tag: mit-scheme-pucked-9.2.12~14^2~42
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d583ccd13af4f82626320919fd8dafec065abe91;p=mit-scheme.git

test-ffi-wrapper: c-peek-cstring can now return a legacy string.
---

diff --git a/tests/ffi/test-ffi-wrapper.scm b/tests/ffi/test-ffi-wrapper.scm
index 193ba762c..746adb325 100644
--- a/tests/ffi/test-ffi-wrapper.scm
+++ b/tests/ffi/test-ffi-wrapper.scm
@@ -37,7 +37,9 @@
 					   bytevector struct))))
 			 (new (c-peek-cstring alien)))
 		    (free alien)
-		    (utf8->string new)))
+		    (if (string? new)
+			new
+			(utf8->string new))))
     (let ((a (C-call "test_struct" struct struct)))
       (assert-equal a struct)
       (assert-equal (C-> a "TestStruct second")