From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 2 Aug 2001 04:32:14 +0000 (+0000)
Subject: In-line code flush_cache, which had one reference.
X-Git-Tag: 20090517-FFI~2619
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=82eedd16a75d2ed15965590cb6dbb5553af32891;p=mit-scheme.git

In-line code flush_cache, which had one reference.
---

diff --git a/v7/src/microcode/lookup.c b/v7/src/microcode/lookup.c
index c00ab3b09..7c8f163b0 100644
--- a/v7/src/microcode/lookup.c
+++ b/v7/src/microcode/lookup.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: lookup.c,v 9.61 2001/08/02 04:30:08 cph Exp $
+$Id: lookup.c,v 9.62 2001/08/02 04:32:14 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -141,8 +141,6 @@ static long guarantee_cache
   (SCHEME_OBJECT *, SCHEME_OBJECT);
 static long update_clone
   (SCHEME_OBJECT);
-static void flush_clone
-  (SCHEME_OBJECT);
 static long make_cache
   (SCHEME_OBJECT, SCHEME_OBJECT, SCHEME_OBJECT, SCHEME_OBJECT,
    SCHEME_OBJECT *);
@@ -1174,21 +1172,16 @@ update_clone (SCHEME_OBJECT cache)
 	  SET_CACHE_CLONE (cache, clone);
 	  update_assignment_references (cache);
 	}
-      return (PRIM_DONE);
     }
   else
-    flush_clone (cache);
-  return (PRIM_DONE);
-}
-
-static void
-flush_clone (SCHEME_OBJECT cache)
-{
-  if ((GET_CACHE_CLONE (cache)) != SHARP_F)
     {
-      SET_CACHE_CLONE (cache, SHARP_F);
-      update_assignment_references (cache);
+      if ((GET_CACHE_CLONE (cache)) != SHARP_F)
+	{
+	  SET_CACHE_CLONE (cache, SHARP_F);
+	  update_assignment_references (cache);
+	}
     }
+  return (PRIM_DONE);
 }
 
 static long