sequences: swap stack arguments for start/start*/subseq?.

[factor.git] / extra / txon / txon.factor

diff --git a/extra/txon/txon.factor b/extra/txon/txon.factor
index e04c7c1a3d2091a32b027c774691b9e0d2dac4d1..f774530529a3651accbc44707c1d3cad2082c4f8 100644 (file)
--- a/extra/txon/txon.factor
+++ b/extra/txon/txon.factor
@@ -41,8 +41,8 @@ DEFER: name/values
     parse-name [ parse-value ] dip associate ;
 
 : name=value ( string -- remain term )
-    [ blank? ] trim
-    ":`" over subseq? [ (name=value) ] [ f swap ] if ;
+    [ blank? ] trim dup ":`" subseq?
+    [ (name=value) ] [ f swap ] if ;
 
 : name/values ( string -- remain terms )
     [ dup { [ empty? not ] [ first CHAR: ` = not ] } 1&& ]