aboutsummaryrefslogtreecommitdiff
path: root/src/interp/buildom.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/buildom.boot')
-rw-r--r--src/interp/buildom.boot8
1 files changed, 3 insertions, 5 deletions
diff --git a/src/interp/buildom.boot b/src/interp/buildom.boot
index a1e0db1a..2e4a535c 100644
--- a/src/interp/buildom.boot
+++ b/src/interp/buildom.boot
@@ -170,11 +170,9 @@ lookupInDomain(op,sig,addFormDomain,dollar,index) ==
++ (either in category packages or add-chains) is controlled
++ by `useDefaults'.
lookupInDomainAndDefaults(op,sig,domain,dollar,useDefaults) ==
- savedLookupDefaults := $lookupDefaults
- $lookupDefaults := useDefaults
- fun := lookupInDomainVector(op,sig,domain,dollar)
- $lookupDefaults := savedLookupDefaults
- fun
+ $lookupDefaults: local := useDefaults
+ lookupInDomainVector(op,sig,domain,dollar)
+
basicLookup(op,sig,domain,dollar) ==
item := domain.1