alien.strings: simpler fast-string? check.

2015-04-20 10:38:36 -07:00 · 2015-04-20 10:38:36 -07:00 · c0c54d8919
parent 5cc7bfb067
commit c0c54d8919
1 changed files with 1 additions and 1 deletions
--- a/core/alien/strings/strings.factor
+++ b/core/alien/strings/strings.factor
@ -31,7 +31,7 @@ M: c-ptr string>alien drop ;
 <PRIVATE

 : fast-string? ( string encoding -- ? )
-    [ aux>> not ] [ { ascii utf8 } member-eq? ] bi* and ; inline
+    swap aux>> not [ { ascii utf8 } member-eq? ] [ drop f ] if ; inline

 : string>alien-fast ( string encoding -- byte-array )
    { string object } declare ! aux>> must be f