tools.test: Make the flag public. Finish porting tester changes to fuzzer.

[factor.git] / unmaintained / peg-lexer / peg-lexer.factor

diff --git a/unmaintained/peg-lexer/peg-lexer.factor b/unmaintained/peg-lexer/peg-lexer.factor
index b53280d860e3135a3192679fae455cc3c60079aa..7449b92604ed9a8bc123deee8a5c1f048978064d 100644 (file)
--- a/unmaintained/peg-lexer/peg-lexer.factor
+++ b/unmaintained/peg-lexer/peg-lexer.factor
@@ -14,10 +14,10 @@ CONSULT: assoc-protocol lex-hash hash>> ;
            v CHAR: \n n last-index -1 or 1 + -
            n [ CHAR: \n = ] count 1 +
     ] ;
-      
+
 : store-pos ( v a -- )
     input of prepare-pos
-    lexer get [ (>>line) ] keep (>>column) ;
+    lexer get [ line<< ] keep column<< ;
 
 M: lex-hash set-at
     swap {