             { dot-char [ dot ] }
             { dash-char [ dash ] }
             { word-gap-char [ intra-char-gap ] }
-            [ drop intra-char-gap ]
+            { unknown-char [ intra-char-gap ] }
+            [ no-morse-ch ]
         } case
     ] interleave ;
 

USING: accessors ascii assocs biassocs combinators hashtables kernel lists literals math namespaces make multiline openal parser sequences splitting strings synth synth.buffers ;
IN: morse

ERROR: no-morse-code ch ;

<PRIVATE


]

: ch>morse ( ch -- morse )
    ch>lower morse-code-table at unknown-char 1string or ;

: morse>ch ( str -- ch )
    morse-code-table value-at char-gap-char or ;
