about summary refs log tree commit diff stats
path: root/shell
diff options
context:
space:
mode:
Diffstat (limited to 'shell')
-rw-r--r--shell/global.mu21
1 files changed, 0 insertions, 21 deletions
diff --git a/shell/global.mu b/shell/global.mu
index 5c878f43..f5cb2678 100644
--- a/shell/global.mu
+++ b/shell/global.mu
@@ -547,27 +547,6 @@ fn stash-gap-buffer-to-globals _globals: (addr global-table), definitions: (addr
   }
 }
 
-fn is-definition? _expr: (addr cell) -> _/eax: boolean {
-  var expr/eax: (addr cell) <- copy _expr
-  # if expr->left is neither "define" nor "set", return
-  var left-ah/eax: (addr handle cell) <- get expr, left
-  var _left/eax: (addr cell) <- lookup *left-ah
-  var left/ecx: (addr cell) <- copy _left
-  {
-    var def?/eax: boolean <- symbol-equal? left, "define"
-    compare def?, 0/false
-    break-if-=
-    return 1/true
-  }
-  {
-    var set?/eax: boolean <- symbol-equal? left, "set"
-    compare set?, 0/false
-    break-if-=
-    return 1/true
-  }
-  return 0/false
-}
-
 # load all bindings in a single lexical scope, aka gap buffer of the environment, aka file of the file system
 fn load-lexical-scope in-ah: (addr handle gap-buffer), _globals: (addr global-table) {
   var globals/esi: (addr global-table) <- copy _globals