new accessors

db4
Doug Coleman 2008-08-30 21:58:53 -05:00
parent 14eea72acb
commit a58dc274db
1 changed files with 1 additions and 1 deletions

View File

@ -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