From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 30 Jan 1991 22:03:36 +0000 (+0000)
Subject: Fossil removal.
X-Git-Tag: 20090517-FFI~10948
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c212f871b3820d7b201cc9731e38cd331e7b569c;p=mit-scheme.git

Fossil removal.
---

diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm
index 80f066ba6..5204219e9 100644
--- a/v7/src/compiler/machines/bobcat/lapgen.scm
+++ b/v7/src/compiler/machines/bobcat/lapgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 4.37 1990/09/07 22:35:43 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 4.38 1991/01/30 22:03:36 jinx Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -363,10 +363,18 @@ MIT in each case. |#
 (define-integrable (allocate-indirection-register! register)
   (load-alias-register! register 'ADDRESS))
 
+#|
+
+;; This is believed to be a fossil.
+;; Left here until the first compilation to make sure that it really is.
+;; Can be removed the next time it is seen.
+
 (define (code-object-label-initialize code-object)
   code-object
   false)
 
+|#
+
 (define (generate-n-times n limit instruction-gen with-counter)
   (if (> n limit)
       (let ((loop (generate-label 'LOOP)))