diff options
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index c6cf8942..767521ab 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1152,7 +1152,7 @@ compDefineCategory2(db,form,signature,body,m,e,$formalArgList) == if opOf(formalBody)~='Join and opOf(formalBody)~='mkCategory then formalBody := ['Join, formalBody] dbCategory(db) := formalBody - body := optFunctorBody compOrCroak(formalBody,signature'.target,e).expr + body := optFunctorBody(db,compOrCroak(formalBody,signature'.target,e).expr) if $extraParms ~= nil then formals := nil actuals := nil |