Add new primitive SCAN-FORWARD-PREFIX-CHARS.

diff --git a/v7/src/microcode/syntax.c b/v7/src/microcode/syntax.c
index 5fb46a25d258af04afc1b3ffc7747db95416a083..623b5f4b6bf8930057e90755f0e86c59d8cf597c 100644 (file)
--- a/v7/src/microcode/syntax.c
+++ b/v7/src/microcode/syntax.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/syntax.c,v 1.20 1989/09/20 23:12:00 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/syntax.c,v 1.21 1991/05/20 20:31:51 cph Exp $
 
-Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology
+Copyright (c) 1987-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -316,6 +316,25 @@ DEFINE_PRIMITIVE ("SCAN-BACKWARD-PREFIX-CHARS", Prim_scan_backward_prefix_chars,
       MOVE_LEFT (start);
     }
 }
+
+DEFINE_PRIMITIVE ("SCAN-FORWARD-PREFIX-CHARS", Prim_scan_forward_prefix_chars, 4, 4, 0)
+{
+  Boolean quoted;
+  NORMAL_INITIALIZATION_FORWARD (4);
+
+  while (true)
+    {
+      WIN_IF_RIGHT_END (start);
+      RIGHT_QUOTED_P (start, quoted);
+      WIN_IF (quoted);
+      {
+       long sentry = (PEEK_RIGHT (start));
+       WIN_IF (! (((SYNTAX_ENTRY_CODE (sentry)) == syntaxcode_quote)
+                  || (SYNTAX_ENTRY_PREFIX (sentry))));
+      }
+      MOVE_RIGHT (start);
+    }
+}
 \f
 /* Word Parsers */
 

diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 52852930354cc46b2860477e5659174071a640ca..4cd0328a1162944a73f046a95bc10562e297f32a 100644 (file)
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.80 1991/05/10 00:07:41 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.81 1991/05/20 20:32:20 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -46,5 +46,5 @@ MIT in each case. */
 #define VERSION                11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     80
+#define SUBVERSION     81
 #endif

diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index d3049865218dc3a34169b958f659ee657c4e5a18..69163e42f22218ec81b443264806a23ae4b317c1 100644 (file)
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.80 1991/05/10 00:07:41 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.81 1991/05/20 20:32:20 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -46,5 +46,5 @@ MIT in each case. */
 #define VERSION                11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     80
+#define SUBVERSION     81
 #endif