new accessors
parent
14eea72acb
commit
a58dc274db
|
@ -116,7 +116,7 @@ LAZY: 'morse-words' ( -- parser )
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
: morse> ( str -- str )
|
: morse> ( str -- str )
|
||||||
'morse-words' parse car parse-result-parsed [
|
'morse-words' parse car parsed>> [
|
||||||
[
|
[
|
||||||
>string morse>ch
|
>string morse>ch
|
||||||
] map >string
|
] map >string
|
||||||
|
|
Loading…
Reference in New Issue