diff options
Diffstat (limited to 'src/interp/buildom.boot')
| -rw-r--r-- | src/interp/buildom.boot | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/buildom.boot b/src/interp/buildom.boot index 3201ee43..20ae27a2 100644 --- a/src/interp/buildom.boot +++ b/src/interp/buildom.boot @@ -178,8 +178,7 @@ lookupInDomainAndDefaults(op,sig,domain,dollar,useDefaults) == basicLookup(op,sig,domain,dollar) == item := domainDirectory domain - cons? item and first item in '(lookupInDomain lookupInTable) => - lookupInDomainVector(op,sig,domain,dollar) + item is ['lookupInTable,:.] => lookupInDomainVector(op,sig,domain,dollar) ----------new world code follows------------ u := lookupInDomainAndDefaults(op,sig,domain,dollar,false) => u lookupInDomainAndDefaults(op,sig,domain,dollar,true) |