change ERROR: words from throw-foo back to foo.

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

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