From: Jim Miller <edu/mit/csail/zurich/jmiller>
Date: Fri, 25 Nov 1994 23:01:56 +0000 (+0000)
Subject: Changed order of arguments to %*set!
X-Git-Tag: 20090517-FFI~6967
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e4382c8ced5c92ae4d12b95853f21f73329a14a3;p=mit-scheme.git

Changed order of arguments to %*set!
---

diff --git a/v8/src/compiler/midend/envconv.scm b/v8/src/compiler/midend/envconv.scm
index ea8753564..9a8e1b6d6 100644
--- a/v8/src/compiler/midend/envconv.scm
+++ b/v8/src/compiler/midend/envconv.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: envconv.scm,v 1.2 1994/11/25 23:00:45 adams Exp $
+$Id: envconv.scm,v 1.3 1994/11/25 23:01:56 jmiller Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -652,9 +652,9 @@ MIT in each case. |#
 			     (QUOTE #F)
 			     (LOOKUP ,env-name)
 			     (QUOTE ,var-name)
+			     ,(set!/expr reference)
 			     (QUOTE ,depth)
-			     (QUOTE ,offset)
-			     ,(set!/expr reference)))
+			     (QUOTE ,offset)))
 		     ((UNASSIGNED?)
 		      `(CALL (QUOTE ,%*unassigned?)
 			     (QUOTE #F)
diff --git a/v8/src/compiler/midend/fakeprim.scm b/v8/src/compiler/midend/fakeprim.scm
index 327cec123..5beeec7e2 100644
--- a/v8/src/compiler/midend/fakeprim.scm
+++ b/v8/src/compiler/midend/fakeprim.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: fakeprim.scm,v 1.2 1994/11/25 22:57:50 adams Exp $
+$Id: fakeprim.scm,v 1.3 1994/11/25 22:59:37 jmiller Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -148,14 +148,14 @@ MIT in each case. |#
 
 (define %*set!
   ;; (CALL ',%*set! <continuation> <environment>
-  ;;       'VARIABLE-NAME 'DEPTH 'OFFSET <value>)
+  ;;       'VARIABLE-NAME <value> 'DEPTH 'OFFSET)
   ;; Note:
   ;;   DEPTH and OFFSET are #F (unknown) or non-negative fixnums
   ;;   Introduced by envconv.scm, removed by compat.scm (replaced
   ;;     by a call to the primitive LEXICAL-ASSIGNMENT)
   (make-operator "#[*set!]"))
 
-(cookie-call %*set! cont environment 'VARIABLE-NAME 'DEPTH 'OFFSET value)
+(cookie-call %*set! cont environment 'VARIABLE-NAME value 'DEPTH 'OFFSET)
 
 (define %*unassigned?
   ;; (CALL ',%*unassigned? <continuation> <environment>
diff --git a/v8/src/compiler/midend/triveval.scm b/v8/src/compiler/midend/triveval.scm
index 26a9c1a08..4523f45de 100644
--- a/v8/src/compiler/midend/triveval.scm
+++ b/v8/src/compiler/midend/triveval.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: triveval.scm,v 1.1 1994/11/19 02:04:29 adams Exp $
+$Id: triveval.scm,v 1.2 1994/11/25 23:01:17 jmiller Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -383,7 +383,7 @@ MIT in each case. |#
 			depth offset	; ignored
 			(lexical-reference env name)))
     (declare-operator %*set!
-		      (lambda (env name depth offset value)
+		      (lambda (env name value depth offset)
 			depth offset	; ignored
 			(lexical-assignment env name value)))
     (declare-operator %*unassigned?