extra: use throw-foo for ERROR: change

[factor.git] / extra / morse / morse.factor

diff --git a/extra/morse/morse.factor b/extra/morse/morse.factor
index 86c599137be8de739fdf1745fbabf664c7fc5f3e..db86cdb32cbdb3a0d4d4a669002c552c7a023d10 100755 (executable)
--- a/extra/morse/morse.factor
+++ b/extra/morse/morse.factor
@@ -160,7 +160,7 @@ CONSTANT: beep-freq 880
             { dash-char [ dash ] }
             { word-gap-char [ intra-char-gap ] }
             { unknown-char [ intra-char-gap ] }
-            [ no-morse-ch ]
+            [ throw-no-morse-ch ]
         } case
     ] interleave ;