From a74e231b1d178bdf88a6d509e5c8ab7008fa7a82 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 28 Feb 1995 01:50:05 +0000
Subject: [PATCH] Removed unused 7.3 procedure.
---
v8/src/compiler/base/toplev.scm | 8 +-------
1 file changed, 1 insertion(+), 7 deletions(-)
diff --git a/v8/src/compiler/base/toplev.scm b/v8/src/compiler/base/toplev.scm
index 766d82df3..ecae6c125 100644
--- a/v8/src/compiler/base/toplev.scm
+++ b/v8/src/compiler/base/toplev.scm
@@ -1,6 +1,6 @@
#| -*-Scheme-*-
-$Id: toplev.scm,v 1.5 1994/12/02 03:00:56 adams Exp $
+$Id: toplev.scm,v 1.6 1995/02/28 01:50:05 adams Exp $
Copyright (c) 1988-1994 Massachusetts Institute of Technology
@@ -747,12 +747,6 @@ MIT in each case. |#
(write (/ (exact->inexact real-time) 1000))
(write-string " (real time)"))
-(define (phase/canonicalize-scode)
- (compiler-subphase "Scode Canonicalization"
- (lambda ()
- (set! *scode* (canonicalize/top-level (last-reference *input-scode*)))
- unspecific)))
-
(define (phase/rtl-optimization)
(compiler-superphase "RTL Optimization"
(lambda ()
--
2.25.1