From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 9 Oct 2001 16:02:22 +0000 (+0000)
Subject: Interpret bare string or char to be noise.
X-Git-Tag: 20090517-FFI~2510
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e63d81888f12010b6e262fd683cecd8b1fa5633f;p=mit-scheme.git

Interpret bare string or char to be noise.
---

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))))