diff --git a/compiler/ir1final.lisp b/compiler/ir1final.lisp
index 2e12e3bb1ca3a9cbe745d417f95453f7e8da4197..f74d3f16a610b1d3d2d01c682a7a9d2f19d120aa 100644
--- a/compiler/ir1final.lisp
+++ b/compiler/ir1final.lisp
@@ -15,21 +15,7 @@
 (in-package 'c)
 
 
-;;; IR1-Finalize  --  Interface
-;;;
-;;; We do a number of things:
-;;;  2] Find any unknown free functions.
-;;;  3] Accumulate approximate function type info for unknown functions.
-;;;  4] Update the global type for functions newly defined.
-;;;  5] Emit any delayed notes about failed optimizations.
-;;;
-(proclaim '(function ir1-finalize () void))
-(defun ir1-finalize ()
-  (maphash #'check-free-function *free-functions*)
-  (maphash #'note-failed-optimization *failed-optimizations*))
-
-
-;;; Note-Failed-Optimization  --  Internal
+;;; Note-Failed-Optimization  --  Interface
 ;;;
 ;;;    Give the user grief about optimizations that we weren't able to do.  It
 ;;; is assumed that they want to hear, or there wouldn't be any entries in the
@@ -59,7 +45,7 @@
 			      (messages))))))))
 
 	  
-;;; Check-Free-Function  --  Internal
+;;; Check-Free-Function  --  Interface
 ;;;
 ;;;    If the entry is a functional, then we update the global environment
 ;;; according to the new definition, checking for inconsistency.  If the entry