new accessors
parent
14eea72acb
commit
a58dc274db
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue