From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 28 Feb 1995 01:50:05 +0000 (+0000)
Subject: Removed unused 7.3 procedure.
X-Git-Tag: 20090517-FFI~6574
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a74e231b1d178bdf88a6d509e5c8ab7008fa7a82;p=mit-scheme.git

Removed unused 7.3 procedure.
---

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 ()