From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 2 Jun 1994 19:03:31 +0000 (+0000)
Subject: Patch to fix long-standing bug in forcing of promises.
X-Git-Tag: 20090517-FFI~7167
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=196c85922aec3fcdf59b007e689d5123734f66b0;p=mit-scheme.git

Patch to fix long-standing bug in forcing of promises.
---

diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index 48d50f72e..6d5266db9 100644
--- a/v7/src/microcode/interp.c
+++ b/v7/src/microcode/interp.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: interp.c,v 9.82 1994/06/02 19:02:15 cph Exp $
+$Id: interp.c,v 9.83 1994/06/02 19:03:31 cph Exp $
 
 Copyright (c) 1988-94 Massachusetts Institute of Technology
 
@@ -2241,7 +2241,7 @@ Primitive_Internal_Apply:
 
     case RC_SNAP_NEED_THUNK:
       /* Don't snap thunk twice; evaluation of the thunk's body might
-	 have snapped it already.  *
+	 have snapped it already.  */
       if ((MEMORY_REF ((Fetch_Expression ()), THUNK_SNAPPED)) == SHARP_F)
 	{
 	  MEMORY_SET ((Fetch_Expression ()), THUNK_SNAPPED, SHARP_T);
diff --git a/v8/src/microcode/interp.c b/v8/src/microcode/interp.c
index 48d50f72e..6d5266db9 100644
--- a/v8/src/microcode/interp.c
+++ b/v8/src/microcode/interp.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: interp.c,v 9.82 1994/06/02 19:02:15 cph Exp $
+$Id: interp.c,v 9.83 1994/06/02 19:03:31 cph Exp $
 
 Copyright (c) 1988-94 Massachusetts Institute of Technology
 
@@ -2241,7 +2241,7 @@ Primitive_Internal_Apply:
 
     case RC_SNAP_NEED_THUNK:
       /* Don't snap thunk twice; evaluation of the thunk's body might
-	 have snapped it already.  *
+	 have snapped it already.  */
       if ((MEMORY_REF ((Fetch_Expression ()), THUNK_SNAPPED)) == SHARP_F)
 	{
 	  MEMORY_SET ((Fetch_Expression ()), THUNK_SNAPPED, SHARP_T);