Changed order of arguments to %*set!

diff --git a/v8/src/compiler/midend/envconv.scm b/v8/src/compiler/midend/envconv.scm
index ea87535648de82d0dc2cf5b876279e8f2da9fc3f..9a8e1b6d665f0617321a50822d560854f7c325b1 100644 (file)
--- 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 327cec1232a5d5d28dc080e802f8afd28dbabfad..5beeec7e2f3db6d4d272b38b2a887ea61b523b2a 100644 (file)
--- 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 26a9c1a0899e3181efed452f14c1d974716e88dd..4523f45dec3583c758b4647351e7b1ecdc959e63 100644 (file)
--- 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?