diff options
Diffstat (limited to 'src/interp/modemap.boot')
-rw-r--r-- | src/interp/modemap.boot | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/modemap.boot b/src/interp/modemap.boot index 38ee6e52..fce0fb46 100644 --- a/src/interp/modemap.boot +++ b/src/interp/modemap.boot @@ -332,7 +332,8 @@ evalAndSub(domainName,viewName,functorForm,form,$e) == [substAlist,$e] getOperationAlist(name,functorForm,form) == - if atom name and niladicConstructorFromDB name then functorForm:= [functorForm] + if atom name and niladicConstructorFromDB name then + functorForm:= [functorForm] -- (null isConstructorForm functorForm) and (u:= isFunctor functorForm) (u:= isFunctor functorForm) and not ($insideFunctorIfTrue and first functorForm=first $functorForm) => u |