From 36db462d3a02e5df058861589b60d1f9c808e7c3 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 24 Jun 2013 16:39:32 +0000
Subject: Simplify database construction.

---
 src/interp/cattable.boot | 24 +-----------------------
 1 file changed, 1 insertion(+), 23 deletions(-)

(limited to 'src/interp/cattable.boot')

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
-- 
cgit v1.2.3