From 32efd3b0691918cf1d662b095c653d5a0a17ff7b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 22 Apr 2011 15:51:57 +0000
Subject: more cleanup

---
 src/interp/sys-utility.boot | 21 ---------------------
 1 file changed, 21 deletions(-)

(limited to 'src/interp/sys-utility.boot')

diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot
index 6895926e..6d9bf52c 100644
--- a/src/interp/sys-utility.boot
+++ b/src/interp/sys-utility.boot
@@ -392,24 +392,3 @@ symbolLassoc(s,l) ==
   p := symbolAssoc(s,l) => rest p
   nil
 
-
---% substitute
-
-substitute(new,old,tree) ==
-  sameObject?(old,tree) => new
-  cons? tree =>
-    h := substitute(new,old,first tree)
-    t := substitute(new,old,rest tree)
-    sameObject?(h,first tree) and sameObject?(t,rest tree) => tree
-    [h,:t]
-  tree
-
-substitute!(new,old,tree) ==
-  sameObject?(old,tree) => new
-  cons? tree =>
-    h := substitute!(new,old,first tree)
-    t := substitute!(new,old,rest tree)
-    tree.first := h
-    tree.rest := t
-  tree
-    
-- 
cgit v1.2.3