parsed -> suffix!, add append!

[factor.git] / extra / morse / morse.factor

diff --git a/extra/morse/morse.factor b/extra/morse/morse.factor
index ddfd3c20424c98c5923d9c88db67a2bd63f68fcf..cbe3c0f2fad1dae09d95020188a957743648e5ff 100644 (file)
--- a/extra/morse/morse.factor
+++ b/extra/morse/morse.factor
@@ -109,7 +109,7 @@ PRIVATE>
 : morse> ( morse -- plain )
     replace-underscores morse>sentence ;
 
-SYNTAX: [MORSE "MORSE]" parse-multiline-string morse> parsed ; 
+SYNTAX: [MORSE "MORSE]" parse-multiline-string morse> suffix! ; 
     
 <PRIVATE