Add new syntax_entry bit, "p", which indicates that the character is a

prefix character.  A combination of `syntaxcode_whitespace' and this
bit is equivalent to `syntaxcode_quote' -- except that the new bit can
be used in combination with other codes to provide new functionality.

diff --git a/v7/src/microcode/syntax.c b/v7/src/microcode/syntax.c
index 68b4d3d905168eb7296309a93fc9de87bd06a12d..92785ea88a447de18a742e9aa8afdb9ff6758cc9 100644 (file)
--- 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.17 1989/05/16 17:01:17 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/syntax.c,v 1.18 1989/05/16 18:19:32 cph Rel $
 
 Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology
 
@@ -409,6 +409,8 @@ DEFINE_PRIMITIVE ("SCAN-LIST-FORWARD", Prim_scan_list_forward, 7, 7, 0)
            }
          continue;
        }
+      if (SYNTAX_ENTRY_PREFIX (sentry))
+       continue;
 \f
       switch (SYNTAX_ENTRY_CODE (sentry))
        {
@@ -770,6 +772,8 @@ DEFINE_PRIMITIVE ("SCAN-SEXPS-FORWARD", Prim_scan_sexps_forward, 7, 7, 0)
            }
          in_comment = 0;
        }
+      else if (SYNTAX_ENTRY_PREFIX (sentry))
+       continue;
       else
 \f
        switch (SYNTAX_ENTRY_CODE (sentry))