Fixing everything for mandatory stack effects

[factor.git] / extra / state-machine / state-machine.factor

diff --git a/extra/state-machine/state-machine.factor b/extra/state-machine/state-machine.factor
index 3f1d91d84cff6066a0df901b6dccd9909aba3946..4c83c646416fced30f47fa64de190707baa7a40f 100755 (executable)
--- a/extra/state-machine/state-machine.factor
+++ b/extra/state-machine/state-machine.factor
@@ -11,8 +11,8 @@ IN: state-machine
 
 TUPLE: state place data ;
 
-TUPLE: missing-state ;
-: missing-state \ missing-state new throw ;
+ERROR: missing-state ;
+
 M: missing-state error.
     drop "Missing state" print ;