From c0c54d891933ee593f2580c3d602a77da13aefe1 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 20 Apr 2015 10:38:36 -0700
Subject: [PATCH] alien.strings: simpler fast-string? check.

---
 core/alien/strings/strings.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/alien/strings/strings.factor b/core/alien/strings/strings.factor
index e45c6c1958..12017d64d8 100644
--- 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