about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2014-12-30 18:51:34 -0800
committerKartik K. Agaram <vc@akkartik.com>2014-12-30 18:51:34 -0800
commitedb6fcbb35594a7831abac83207a9e33c23a15ab (patch)
treec84e629cd33c7f52cef739691103cb5738c80d04
parent3ccfdb38ae4a4c893005baa8d64834da4452d9ee (diff)
downloadmu-edb6fcbb35594a7831abac83207a9e33c23a15ab.tar.gz
469 - warn on the bug of 464
-rw-r--r--mu.arc2
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*)