Merge branch 'master' into startup

[factor.git] / core / alien / strings / strings.factor

diff --git a/core/alien/strings/strings.factor b/core/alien/strings/strings.factor
index 9dd6ae425fb3e503f04221fb5d7354832acaf005..8e09fa8c2c24ea6b9563d37be834d49602c5df7f 100644 (file)
--- a/core/alien/strings/strings.factor
+++ b/core/alien/strings/strings.factor
@@ -21,7 +21,7 @@ M: f alien>string
 ERROR: invalid-c-string string ;
 
 : check-string ( string -- )
-    0 over memq? [ invalid-c-string ] [ drop ] if ;
+    0 over member-eq? [ invalid-c-string ] [ drop ] if ;
 
 GENERIC# string>alien 1 ( string encoding -- byte-array )