From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sun, 19 Nov 1995 19:32:42 +0000 (+0000)
Subject: Renamed initialization procedure to INITIALIZE-PACKAGE!
X-Git-Tag: 20090517-FFI~5725
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6fa354cbe67e1efda7659be82d346d9202b32a7b;p=mit-scheme.git

Renamed initialization procedure to INITIALIZE-PACKAGE!
---

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