From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 14 Mar 1989 08:18:39 +0000 (+0000)
Subject: Fix another trivial bug.
X-Git-Tag: 20090517-FFI~12233
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5c8e3b93e000ffe44291f7bd81075d82a23a93ba;p=mit-scheme.git

Fix another trivial bug.
---

diff --git a/v7/src/microcode/syntax.c b/v7/src/microcode/syntax.c
index de8896fa3..af49a8e64 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.10 1989/03/14 01:57:10 cph Exp $
+$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 $
 
 Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology
 
@@ -729,7 +729,7 @@ DEFINE_PRIMITIVE ("SCAN-SEXPS-FORWARD", Prim_scan_sexps_forward, 7, 7, 0)
       READ_RIGHT (start, sentry);
       if ((! (RIGHT_END_P (start))) &&
 	  (SYNTAX_ENTRY_COMSTART_FIRST (sentry)) &&
-	  (SYNTAX_ENTRY_COMSTART_FIRST (PEEK_RIGHT (start))))
+	  (SYNTAX_ENTRY_COMSTART_SECOND (PEEK_RIGHT (start))))
 	{
 	  MOVE_RIGHT (start);
 	  in_comment = 2;
@@ -848,6 +848,7 @@ DEFINE_PRIMITIVE ("SCAN-SEXPS-FORWARD", Prim_scan_sexps_forward, 7, 7, 0)
 			quoted = true;
 			DONE_IF (true);
 		      }
+		    MOVE_RIGHT (start);
 		  }
 	      }
 	    in_string = -1;