alien.strings: rename check-string to check-c-string

diff --git a/core/alien/strings/strings.factor b/core/alien/strings/strings.factor
index 2a4b3d9ebc88a3be7c3925cfb058778e62b4b36c..a7ddb3dd80ca8a60ef41edbbceeeb08bc94d8633 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 -- )
+: check-c-string ( string -- )
     0 over member-eq? [ invalid-c-string ] [ drop ] if ;
 
 GENERIC#: string>alien 1 ( string encoding -- byte-array )
@@ -53,7 +53,7 @@ M: c-ptr string>alien drop ;
 PRIVATE>
 
 M: string string>alien
-    over check-string
+    over check-c-string
     2dup fast-string?
     [ string>alien-fast ]
     [ string>alien-slow ] if ;