From 6fa354cbe67e1efda7659be82d346d9202b32a7b Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sun, 19 Nov 1995 19:32:42 +0000
Subject: [PATCH] Renamed initialization procedure to INITIALIZE-PACKAGE!

---
 v7/src/pcsample/zones.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/v7/src/pcsample/zones.scm b/v7/src/pcsample/zones.scm
index ee21b76db..e03fd165f 100644
--- a/v7/src/pcsample/zones.scm
+++ b/v7/src/pcsample/zones.scm
@@ -131,7 +131,7 @@
 		       zones)
 		  (lambda (x y) (> (car x) (car y)))))))))
 
-(define (initialize-zones-package!)
+(define (initialize-package!)
   (let* ((max-zone ((ucode-primitive %pc-sample/max-zone 0))))
     (set! zone:other (%make-pc-sample-zone 'other 0))
     (set! zones
-- 
2.25.1