diff options
Diffstat (limited to 'src/interp/functor.boot')
| -rw-r--r-- | src/interp/functor.boot | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot index 1cf807a9..5a71aaf7 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -477,9 +477,6 @@ DescendCode(db,code,flag,viewAssoc,e) == '$ body:= ['CONS,implem,dom] u := SetFunctionSlots(sig,body,flag,'original) - -- ??? We do not resolve default definitions, yet. - if not $insideCategoryPackageIfTrue then - updateCapsuleDirectory([second(u).args,third u],flag) ConstantCreator u => if flag ~= true then u:= ['%when,[ProcessCond(db,flag,e),u]] $ConstantAssignments:= [u,:$ConstantAssignments] |