From cae29ad598fa2c51a39edb5a3c5fa2b6f30fe2d1 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 16 May 1989 18:19:32 +0000 Subject: [PATCH] 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. --- v7/src/microcode/syntax.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/v7/src/microcode/syntax.c b/v7/src/microcode/syntax.c index 68b4d3d90..92785ea88 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.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; 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 switch (SYNTAX_ENTRY_CODE (sentry)) -- 2.25.1