diff options
Diffstat (limited to 'mu.arc')
| -rw-r--r-- | mu.arc | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/mu.arc b/mu.arc index 469990d0..5d29a35a 100644 --- a/mu.arc +++ b/mu.arc @@ -568,9 +568,9 @@ ; copy to output args ;? (prn "store: " tmp " " oarg) (if (acons tmp) - (for i 0 (< i (min len.tmp len.oarg)) ++.i - (when (nondummy oarg.i) - (setm oarg.i tmp.i))) + (each (dest val) (zip oarg tmp) + (unless (is dest '_) + (setm dest val))) (when oarg ; must be a list (trace "run" "writing to oarg " tmp " => " oarg.0) (setm oarg.0 tmp))) |