From e63d81888f12010b6e262fd683cecd8b1fa5633f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 9 Oct 2001 16:02:22 +0000 Subject: [PATCH] Interpret bare string or char to be noise. --- v7/src/star-parser/parser.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/v7/src/star-parser/parser.scm b/v7/src/star-parser/parser.scm index 76bc0aa5f..4988a3df3 100644 --- a/v7/src/star-parser/parser.scm +++ b/v7/src/star-parser/parser.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: parser.scm,v 1.17 2001/07/14 11:42:31 cph Exp $ +;;; $Id: parser.scm,v 1.18 2001/10/09 16:02:22 cph Exp $ ;;; ;;; Copyright (c) 2001 Massachusetts Institute of Technology ;;; @@ -47,6 +47,11 @@ (if preprocessor (preprocessor expression external-bindings internal-bindings) expression))) + ((or (string? expression) + (char? expression)) + (preprocess-parser-expression `(NOISE ,expression) + external-bindings + internal-bindings)) (else (error "Unknown parser expression:" expression)))) -- 2.25.1