Renamed initialization procedure to INITIALIZE-PACKAGE!

diff --git a/v7/src/pcsample/zones.scm b/v7/src/pcsample/zones.scm
index ee21b76dbcbe159d2464bfee85188b2319677ee3..e03fd165fb9b1f891303d1d0aa60abfed3622819 100644 (file)
--- 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