diff options
Diffstat (limited to 'src/interp/cattable.boot')
-rw-r--r-- | src/interp/cattable.boot | 24 |
1 files changed, 1 insertions, 23 deletions
diff --git a/src/interp/cattable.boot b/src/interp/cattable.boot index 34bd928e..7cb1dc0d 100644 --- a/src/interp/cattable.boot +++ b/src/interp/cattable.boot @@ -1,6 +1,6 @@ -- Copyright (C) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2011, Gabriel Dos Reis. +-- Copyright (C) 2007-2013, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -429,28 +429,6 @@ compressSexpr(x,left,right) == compressSexpr(rest x,nil,x) tableValue($found,x) := x -squeezeList(l) == --- changes the list l, so that is has maximal sharing of cells - $found:local:= nil - squeeze1 l - -squeeze1(l) == --- recursive version of squeezeList - x:= first l - y:= - x isnt [.,:.] => x - z:= member(x,$found) => first z - $found:= [x,:$found] - squeeze1 x - l.first := y - x:= rest l - y:= - x isnt [.,:.] => x - z:= member(x,$found) => first z - $found:= [x,:$found] - squeeze1 x - l.rest := y - updateCategoryTable(cname,kind) == $updateCatTableIfTrue => kind is 'package => nil |