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

.

This commit is contained in:
Kartik K. Agaram 2021-07-26 01:12:04 -07:00
parent 3e76e0540b
commit ef637b6bab
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
shell/primitives.mu
View File

@ -3622,7 +3622,7 @@ fn apply-index _args-ah: (addr handle cell), out: (addr handle cell), trace: (ad
return
}
var second-ah/edx: (addr handle cell) <- get right, left
# compare
# index
var _first/eax: (addr cell) <- lookup *first-ah
var first/ecx: (addr cell) <- copy _first
{
@ -3644,9 +3644,9 @@ fn apply-index _args-ah: (addr handle cell), out: (addr handle cell), trace: (ad
var index/edx: int <- convert *second-value
var data-ah/eax: (addr handle array handle cell) <- get first, array-data
var data/eax: (addr array handle cell) <- lookup *data-ah
var len/ebx: int <- length data
compare index, len
{
var len/eax: int <- length data
compare index, len
break-if-<
error trace, "too few elements in array"
return