parsed -> suffix!, add append!

[factor.git] / basis / tools / test / test.factor

diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index 097460837bfa5f83210835436c4fe66fd756512c..009789a739aba4561725934c46a636741fb9fac5 100644 (file)
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -96,9 +96,9 @@ MACRO: <experiment> ( word -- )
     ] [ drop ] if ; inline
 
 : parse-test ( accum word -- accum )
-    literalize parsed
-    lexer get line>> parsed
-    \ experiment parsed ; inline
+    literalize suffix!
+    lexer get line>> suffix!
+    \ experiment suffix! ; inline
 
 <<