about summary refs log tree commit diff stats
path: root/shell/primitives.mu
diff options
context:
space:
mode:
Diffstat (limited to 'shell/primitives.mu')
-rw-r--r--shell/primitives.mu9
1 files changed, 2 insertions, 7 deletions
diff --git a/shell/primitives.mu b/shell/primitives.mu
index 66bc3786..b7f46a6e 100644
--- a/shell/primitives.mu
+++ b/shell/primitives.mu
@@ -179,13 +179,8 @@ fn primitive-global? _x: (addr global) -> _/eax: boolean {
     break-if-!=
     return 0/false
   }
-  {
-    var value-type/eax: (addr int) <- get value, type
-    compare *value-type, 4/primitive
-    break-if-=
-    return 0/false
-  }
-  return 1/true
+  var primitive?/eax: boolean <- primitive? value
+  return primitive?
 }
 
 fn append-primitive _self: (addr global-table), name: (addr array byte) {