From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 25 Mar 1988 20:50:11 +0000 (+0000)
Subject: Really get these things working.
X-Git-Tag: 20090517-FFI~12847
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=00eb21968cca4ba54b0fb8dff0a1c1403d7c4127;p=mit-scheme.git

Really get these things working.
---

diff --git a/v7/src/sf/make.scm b/v7/src/sf/make.scm
index 2cce4dcf0..1e7cff184 100644
--- a/v7/src/sf/make.scm
+++ b/v7/src/sf/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 3.16 1988/03/22 17:37:26 jrm Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 4.1 1988/03/25 20:50:11 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -60,8 +60,8 @@ MIT in each case. |#
   (define scode-optimizer/system
     (make-environment
       (define :name "SF")
-      (define :version 3)
-      (define :modification 16)
+      (define :version 4)
+      (define :modification 0)
       (define :files)
 
       (define :files-lists
diff --git a/v7/src/sf/xform.scm b/v7/src/sf/xform.scm
index 16fb8fa40..c9e89eb3d 100644
--- a/v7/src/sf/xform.scm
+++ b/v7/src/sf/xform.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/xform.scm,v 3.6 1988/03/22 17:40:50 jrm Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/xform.scm,v 3.7 1988/03/25 20:48:02 cph Rel $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -150,7 +150,7 @@ MIT in each case. |#
 
       (transmit-values (loop variables (sequence-actions body))
 	(lambda (values actions)
-	  (open-block/make block variables values actions))))))
+	  (open-block/make block variables values actions #f))))))
 
 (define (transform/variable block environment expression)
   (reference/make block
@@ -159,10 +159,11 @@ MIT in each case. |#
 (define (transform/assignment block environment expression)
   (assignment-components expression
     (lambda (name value)
-      (variable/side-effect! variable)
-      (assignment/make block
-		       (environment/lookup block environment name)
-		       (transform/expression block environment value)))))
+      (let ((variable (environment/lookup block environment name)))
+	(variable/side-effect! variable)
+	(assignment/make block
+			 variable
+			 (transform/expression block environment value))))))
 
 (define (transform/lambda block environment expression)
   (lambda-components* expression
@@ -200,6 +201,7 @@ MIT in each case. |#
   block environment ; ignored
   (definition-components expression
     (lambda (name value)
+      value ; ignored
       (error "Unscanned definition encountered.  Unable to proceed." name))))
 
 (define (transform/access block environment expression)
@@ -215,7 +217,7 @@ MIT in each case. |#
 			(transform/expressions block environment operands)))))
 
 (define (transform/comment block environment expression)
-  (transform/expression block (comment-expression environment expression)))
+  (transform/expression block environment (comment-expression expression)))
 
 (define (transform/conditional block environment expression)
   (conditional-components expression
diff --git a/v8/src/sf/make.scm b/v8/src/sf/make.scm
index 169238e63..51fa4a076 100644
--- a/v8/src/sf/make.scm
+++ b/v8/src/sf/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 3.16 1988/03/22 17:37:26 jrm Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 4.1 1988/03/25 20:50:11 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -60,8 +60,8 @@ MIT in each case. |#
   (define scode-optimizer/system
     (make-environment
       (define :name "SF")
-      (define :version 3)
-      (define :modification 16)
+      (define :version 4)
+      (define :modification 0)
       (define :files)
 
       (define :files-lists