diff options
| -rw-r--r-- | mu.arc | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/mu.arc b/mu.arc index cbbb1839..a492b3f0 100644 --- a/mu.arc +++ b/mu.arc @@ -218,6 +218,7 @@ ;? (prn "BBB") (for ninstrs 0 (< ninstrs time-slice) (++ ninstrs) ;? (prn "CCC " pc.context " " context " " (len body.context)) + (if (empty body.context) (err "@stack.context.0!fn-name not defined")) (while (>= pc.context (len body.context)) (pop-stack context) (if empty.context (return ninstrs)) |