new accessors

diff --git a/extra/morse/morse.factor b/extra/morse/morse.factor
index 591915b31756b8e8dffc521607bbf863a47dc3f8..4cce93a5a12b88aabe671873520823eb3995a1c7 100644 (file)
--- a/extra/morse/morse.factor
+++ b/extra/morse/morse.factor
@@ -116,7 +116,7 @@ LAZY: 'morse-words' ( -- parser )
 PRIVATE>
 
 : morse> ( str -- str )
-    'morse-words' parse car parse-result-parsed [
+    'morse-words' parse car parsed>> [
         [ 
             >string morse>ch
         ] map >string