diff options
Diffstat (limited to 'src/interp/functor.boot')
| -rw-r--r-- | src/interp/functor.boot | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot index b068f9e2..d58357b7 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -481,12 +481,7 @@ DescendCode(db,code,flag,viewAssoc,e) == u := symbolTarget('$,viewAssoc) => ['getDomainView,'$,u] '$ body:= ['CONS,implem,dom] - u := SetFunctionSlots(sig,body,flag,'original) - ConstantCreator u => - if flag ~= true then u:= ['%when,[ProcessCond(db,flag,e),u]] - $ConstantAssignments:= [u,:$ConstantAssignments] - nil - u + SetFunctionSlots(sig,body,flag,'original) code is ['_:,:.] => (code.first := '%list; code.rest := nil) --Yes, I know that's a hack, but how else do you kill a line? code is ['%list,:.] => nil @@ -497,12 +492,6 @@ DescendCode(db,code,flag,viewAssoc,e) == stackWarning('"unknown Functor code: %1 ",[code]) code -ConstantCreator u == - null u => false - u is ['%store,['%tref,.,.],u'] => ConstantCreator u' - u is ['CONS,:.] => false - true - ProcessCond(db,cond,e) == ncond := dbSubstituteFormals(db,cond) valuePosition(ncond,$NRTslot1PredicateList) => predicateBitRef(db,ncond,e) |