From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Sat, 13 Feb 2010 22:12:24 +0000 (-0800)
Subject: Typo in variable name.
X-Git-Tag: 20100708-Gtk~168^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=875abdc9ca3dbeb22fb2b501c3fe370a8648430e;p=mit-scheme.git

Typo in variable name.
---

diff --git a/src/sf/object.scm b/src/sf/object.scm
index 85ada7a0d..4c45799f4 100644
--- a/src/sf/object.scm
+++ b/src/sf/object.scm
@@ -328,7 +328,7 @@ USA.
 		   result-body
 		   (sequence/make
 		    expression
-		    (append other-operands (list form))))))))
+		    (append other-operands (list result-body))))))))
 	(else
 	 (combination/%make (and expression (object/scode expression)) block operator operands))))