521 - check 'sleep' syntax

2015-01-10 12:28:00 -08:00 · 2015-01-10 12:28:00 -08:00 · 7e84205e4e
parent e5e2979627
commit 7e84205e4e
1 changed files with 2 additions and 0 deletions
--- a/mu.arc
+++ b/mu.arc
@ -586,6 +586,8 @@
                          (= rep.routine*!sleep `(for-some-cycles ,wakeup-time)))
                      until-location-changes
                        (= rep.routine*!sleep `(until-location-changes ,(addr arg.1) ,(m arg.1)))
+                      ; else
+                        (die "badly formed 'sleep' call @(tostring:prn (body.routine* pc.routine*))")
                      )
                    ((abort-routine*)))