fix all farkup tests!

2008-03-12 10:35:50 -05:00 · 2008-03-12 10:35:50 -05:00 · 0af7c34459
parent f2ea564c41
commit 0af7c34459
1 changed files with 7 additions and 2 deletions
--- a/extra/farkup/farkup.factor
+++ b/extra/farkup/farkup.factor
@ -43,8 +43,13 @@ MEMO: h3 ( -- parser ) "===" "h3" delimited ;
 MEMO: h4 ( -- parser ) "====" "h4" delimited ;

 MEMO: eq ( -- parser )
-    h1 ensure-not
-    "=" token 2seq ;
+    [
+        h1 ensure-not ,
+        h2 ensure-not ,
+        h3 ensure-not ,
+        h4 ensure-not ,
+        "=" token ,
+    ] seq* ;

 : render-code ( string mode -- string' )
    >r string-lines r>