From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 15 Apr 1989 00:15:52 +0000 (+0000)
Subject: Fix typo in `scan-sexps-forward'.
X-Git-Tag: 20090517-FFI~12189
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fb63393ec94598728fc028653830cc812cc87fce;p=mit-scheme.git

Fix typo in `scan-sexps-forward'.
---

diff --git a/v7/src/microcode/syntax.c b/v7/src/microcode/syntax.c
index af49a8e64..2fd0efe8e 100644
--- a/v7/src/microcode/syntax.c
+++ b/v7/src/microcode/syntax.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/syntax.c,v 1.11 1989/03/14 08:18:39 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/syntax.c,v 1.12 1989/04/15 00:15:52 cph Exp $
 
 Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology
 
@@ -881,7 +881,7 @@ DEFINE_PRIMITIVE ("SCAN-SEXPS-FORWARD", Prim_scan_sexps_forward, 7, 7, 0)
 				  ((SCAN_TO_INDEX (level -> previous))
 				   - 1)))));
   (User_Vector_Set(result, 5, (((level == level_start)
-				|| ((level -> previous) == NULL))
+				|| (((level - 1) -> last) == NULL))
 			       ? NIL
 			       : (Make_Unsigned_Fixnum 
 				  ((SCAN_TO_INDEX ((level - 1) -> last))