469 - warn on the bug of 464

2014-12-30 18:51:34 -08:00 · 2014-12-30 18:51:34 -08:00 · edb6fcbb35
parent 3ccfdb38ae
commit edb6fcbb35
1 changed files with 2 additions and 0 deletions
--- 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*)