diff options
Diffstat (limited to 'src/interp/clam.boot')
| -rw-r--r-- | src/interp/clam.boot | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/src/interp/clam.boot b/src/interp/clam.boot index cdfb6e73..14a3d04b 100644 --- a/src/interp/clam.boot +++ b/src/interp/clam.boot @@ -513,12 +513,6 @@ numberOfEmptySlots cache== if CAAR x='$failed then count:= count+1 count -addToSlam([name,:argnames],shell) == - $mutableDomain => return nil - null argnames => addToConstructorCache(name,nil,shell) - args:= ['LIST,:[mkDevaluate a for a in argnames]] - addToConstructorCache(name,args,shell) - addToConstructorCache(op,args,value) == ['haddProp,'$ConstructorCache,MKQ op,args,['CONS,1,value]] |