akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

383

This commit is contained in:
Kartik K. Agaram 2014-11-29 01:44:06 -08:00
parent d68f8ee550
commit 1955c835ad
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mu.arc
View File

@ -650,8 +650,7 @@
(when (acons x)
(zap canonize x)
(when typeinfo.x!array
(return (+ 1 (* (m `(,v.x integer ,@(cut x 2)))
(sizeof typeinfo.x!elem))))))
(return (+ 1 (* array-len.x (sizeof typeinfo.x!elem))))))
(let type (if (and acons.x (pos 'deref metadata.x))
typeinfo.x!elem ; deref pointer
acons.x