diff options
Diffstat (limited to 'mu.arc')
-rw-r--r-- | mu.arc | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/mu.arc b/mu.arc index 7ac37993..87c84bb0 100644 --- a/mu.arc +++ b/mu.arc @@ -489,12 +489,18 @@ (if (len> caller-args.routine* idx) (list caller-args.routine*.idx t) (list nil nil))) + prepare-reply + (= results.routine* + (accum yield + (each a arg + (yield (m a))))) reply (do - (= results.routine* - (accum yield - (each a arg - (yield (m a))))) + (when arg + (= results.routine* + (accum yield + (each a arg + (yield (m a)))))) (let results results.routine* (pop-stack routine*) (if empty.routine* (return ninstrs)) |