diff options
| -rw-r--r-- | mu.arc | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/mu.arc b/mu.arc index 6217040f..91ece897 100644 --- a/mu.arc +++ b/mu.arc @@ -357,6 +357,8 @@ (while (>= pc.routine* (len body.routine*)) (pop-stack routine*) (if empty.routine* (return ninstrs)) + (when (pos '<- (body.routine* pc.routine*)) + (die "No results returned: @(body.routine* pc.routine*)")) (++ pc.routine*)) (++ curr-cycle*) (trace "run" "-- " int-canon.memory*) |