From: Don Allen <edu/mit/csail/zurich/dca>
Date: Sun, 21 Jun 1987 14:51:56 +0000 (+0000)
Subject: Remove use of 'in-package' (not supported by the compiler), replacing
X-Git-Tag: 20090517-FFI~13345
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=56f5f7a239da0721a99c078ec339e4a73de0ffcb;p=mit-scheme.git

Remove use of 'in-package' (not supported by the compiler), replacing
with 'local-assignment'
---

diff --git a/v7/src/runtime/vector.scm b/v7/src/runtime/vector.scm
index a92409121..c0c7cba63 100644
--- a/v7/src/runtime/vector.scm
+++ b/v7/src/runtime/vector.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/vector.scm,v 13.43 1987/04/25 20:19:20 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/vector.scm,v 13.44 1987/06/21 14:51:56 allen Rel $
 ;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -43,16 +43,17 @@
 
 ;;; Standard Procedures
 
-(in-package system-global-environment
 (let-syntax ()
   (define-macro (define-primitives . names)
     `(BEGIN ,@(map (lambda (name)
-		     `(DEFINE ,name ,(make-primitive-procedure name)))
+		     `(LOCAL-ASSIGNMENT
+		       system-global-environment
+		       ',name ,(make-primitive-procedure name)))
 		   names)))
   (define-primitives
    vector-length vector-ref vector-set!
    list->vector vector-cons subvector->list
-   subvector-move-right! subvector-move-left! subvector-fill!)))
+   subvector-move-right! subvector-move-left! subvector-fill!))
 
 (let-syntax ()
   (define-macro (define-type-predicate name type-name)