Removed unused 7.3 procedure.

diff --git a/v8/src/compiler/base/toplev.scm b/v8/src/compiler/base/toplev.scm
index 766d82df3a9b38f2e33970ad7435770e9c112363..ecae6c125284b268d0a342dbe995436786d82830 100644 (file)
--- 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)"))
 \f
-(define (phase/canonicalize-scode)
-  (compiler-subphase "Scode Canonicalization"
-    (lambda ()
-      (set! *scode* (canonicalize/top-level (last-reference *input-scode*)))
-      unspecific)))
-\f
 (define (phase/rtl-optimization)
   (compiler-superphase "RTL Optimization"
     (lambda ()