aboutsummaryrefslogtreecommitdiff
path: root/src/interp/g-opt.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/g-opt.boot')
-rw-r--r--src/interp/g-opt.boot5
1 files changed, 0 insertions, 5 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index e6e8b934..0afc98dd 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -286,11 +286,6 @@ optCons (x is ["CONS",a,b]) ==
x
x
-compileTimeBindingOf u ==
- null(name:= BPINAME u) => keyedSystemError("S2OO0001",[u])
- name="Undef" => MOAN "optimiser found unknown function"
- name
-
optMkRecord ["mkRecord",:u] ==
u is [x] => ['%list,x]
#u=2 => ['%pair,:u]