From a58dc274db83bbe72e6c82d2a2bf62ccb34171a8 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 30 Aug 2008 21:58:53 -0500
Subject: [PATCH] new accessors

---
 extra/morse/morse.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/morse/morse.factor b/extra/morse/morse.factor
index 591915b317..4cce93a5a1 100644
--- 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