about summary refs log tree commit diff stats
path: root/shell/environment.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2021-07-19 20:05:00 -0700
committerKartik K. Agaram <vc@akkartik.com>2021-07-19 20:05:00 -0700
commit4b5a6f6c30f4c95fc339b54a9d0a70e685b18e7c (patch)
treebf7b37a5c8774de86f8073ea9f4b82e05cb88001 /shell/environment.mu
parent8be28fdd4630e8457cfcebe19dac2e3aa68712d3 (diff)
downloadmu-4b5a6f6c30f4c95fc339b54a9d0a70e685b18e7c.tar.gz
.
Diffstat (limited to 'shell/environment.mu')
-rw-r--r--shell/environment.mu6
1 files changed, 3 insertions, 3 deletions
diff --git a/shell/environment.mu b/shell/environment.mu
index 51256d02..688590dd 100644
--- a/shell/environment.mu
+++ b/shell/environment.mu
@@ -285,9 +285,9 @@ fn edit-environment _self: (addr environment), key: grapheme, data-disk: (addr d
         var curr/ebx: (addr global) <- index global-data, curr-offset
         var curr-value-ah/eax: (addr handle cell) <- get curr, value
         var curr-value/eax: (addr cell) <- lookup *curr-value-ah
-        var curr-type/eax: (addr int) <- get curr-value, type
-        compare *curr-type, 4/primitive
-        break-if-!=
+        var primitive?/eax: boolean <- primitive? curr-value
+        compare primitive?, 0/false
+        break-if-=
         var go-modal-error-ah/eax: (addr handle array byte) <- get self, go-modal-error
         copy-array-object "sorry, primitives can't be edited yet", go-modal-error-ah
         return