parsed -> suffix!, add append!

[factor.git] / extra / annotations / annotations.factor

diff --git a/extra/annotations/annotations.factor b/extra/annotations/annotations.factor
index 387c73abe4807e0f2eb4ede82d245b91f4bf4ecf..e463206e4fee99be771bc19e54d7c8714aecd973 100644 (file)
--- a/extra/annotations/annotations.factor
+++ b/extra/annotations/annotations.factor
@@ -7,7 +7,7 @@ IN: annotations
 <<
 
 : (parse-annotation) ( accum -- accum )
-    lexer get [ line-text>> parsed ] [ next-line ] bi ;
+    lexer get [ line-text>> suffix! ] [ next-line ] bi ;
 
 : (non-annotation-usage) ( word -- usages )
     smart-usage
@@ -24,7 +24,7 @@ NAMEs. DEFINES ${NAME}s.
 WHERE
 
 : (NAME) ( str -- ) drop ; inline
-SYNTAX: !NAME (parse-annotation) \ (NAME) parsed ;
+SYNTAX: !NAME (parse-annotation) \ (NAME) suffix! ;
 
 : NAMEs ( -- usages )
     \ (NAME) (non-annotation-usage) ;