aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-op1.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/br-op1.boot')
-rw-r--r--src/interp/br-op1.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-op1.boot b/src/interp/br-op1.boot
index 94f1f937..a383f0e3 100644
--- a/src/interp/br-op1.boot
+++ b/src/interp/br-op1.boot
@@ -954,7 +954,7 @@ getDomainOpTable(dom,fromIfTrue,:options) ==
[f,:r] := cell
f is 'nowhere => 'nowhere --see replaceGoGetSlot
f is 'makeSpadConstant => 'constant
- f = function IDENTITY => 'constant
+ f is '%constant => 'constant
f is 'newGoGet => substitute('_$,domname,devaluate first r)
not vector? r => systemError devaluateList r
substitute('_$,domname,devaluate r)