diff options
| -rw-r--r-- | mu.arc | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/mu.arc b/mu.arc index 225957be..29068bc5 100644 --- 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*))) |