diff options
Diffstat (limited to 'mu.arc')
| -rw-r--r-- | mu.arc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/mu.arc b/mu.arc index 7350bf52..9005c9f9 100644 --- a/mu.arc +++ b/mu.arc @@ -196,9 +196,9 @@ (trace "setm" "size of " loc " is " n) (assert n "setm: can't compute type of @loc") (if (is 1 n) - (do (assert (~isa val 'record) "setm: record of size 1?! @val") + (do (assert (~isa val 'record) "setm: record of size 1 @val") (= (memory* addr.loc) val)) - (do (assert (isa val 'record) "setm: non-record of size >1?! @val") + (do (assert (isa val 'record) "setm: non-record of size >1 @val") (each (dest src) (zip (addrs addr.loc n) (rep val)) (= (memory* dest) src))))))) |