diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-29 01:05:39 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-29 01:05:39 -0800 |
| commit | d18b7cc7492901ebcde7492121360f51d7697ba7 (patch) | |
| tree | 2d0e9ef66f1149ad4d1f9b3f411b7ef77f880e37 /mu.arc | |
| parent | 725744100d994d70f8934ff5e95306edab5d920e (diff) | |
| download | mu-d18b7cc7492901ebcde7492121360f51d7697ba7.tar.gz | |
381
Diffstat (limited to 'mu.arc')
| -rw-r--r-- | mu.arc | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/mu.arc b/mu.arc index d278fee6..da7b79a1 100644 --- a/mu.arc +++ b/mu.arc @@ -637,9 +637,7 @@ (def array-len (operand) (trace "array-len" operand) - (zap absolutize operand) - (while (pos 'deref metadata.operand) - (zap deref operand)) + (zap canonize operand) (if typeinfo.operand!array (m `(,v.operand integer ,@(cut operand 2))) :else @@ -649,14 +647,7 @@ (trace "sizeof" x) (point return (when (acons x) -;? (tr "aa " x) - (zap absolutize x) -;? (tr "bb " x) - (while (pos 'deref metadata.x) -;? (tr "cc " x) - (zap deref x)) -;? (tr "dd " x) -;? (trace "sizeof" "after canonizing: " x) + (zap canonize x) (when typeinfo.x!array (return (+ 1 (* (m `(,v.x integer ,@(cut x 2))) (sizeof typeinfo.x!elem)))))) |