diff options
author | dos-reis <gdr@axiomatics.org> | 2013-06-24 16:39:32 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2013-06-24 16:39:32 +0000 |
commit | 36db462d3a02e5df058861589b60d1f9c808e7c3 (patch) | |
tree | 477a8c3be153d9ca4ba4fc085090e3f6c0a39b03 /src/interp/cattable.boot | |
parent | 0af724597cff0d9235a37223e46e6f9ffb804e0b (diff) | |
download | open-axiom-36db462d3a02e5df058861589b60d1f9c808e7c3.tar.gz |
Simplify database construction.
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 |