From ade636a1fbeac482cc6adb697a525d21d746a324 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 26 Jun 2001 19:01:31 +0000
Subject: [PATCH] Change name of language-shifting expression to SEXP.

---
 v7/src/star-parser/matcher.scm | 4 ++--
 v7/src/star-parser/parser.scm  | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/v7/src/star-parser/matcher.scm b/v7/src/star-parser/matcher.scm
index bd9a78f1a..aae593170 100644
--- a/v7/src/star-parser/matcher.scm
+++ b/v7/src/star-parser/matcher.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: matcher.scm,v 1.1 2001/06/26 18:03:15 cph Exp $
+;;; $Id: matcher.scm,v 1.2 2001/06/26 19:01:31 cph Exp $
 ;;;
 ;;; Copyright (c) 2001 Massachusetts Institute of Technology
 ;;;
@@ -124,7 +124,7 @@
 			      `(RE-COMPILE-CHAR-SET ,(string-tail arg 1) #T)
 			      `(RE-COMPILE-CHAR-SET ,arg #F))
 			  arg)))))
-	       ((MATCHER)
+	       ((SEXP)
 		(handle-complex-expression (check-1-arg expression)))
 	       (else
 		(error "Unknown matcher expression:" expression))))
diff --git a/v7/src/star-parser/parser.scm b/v7/src/star-parser/parser.scm
index fe187b45f..3df8e8263 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.1 2001/06/26 18:03:20 cph Exp $
+;;; $Id: parser.scm,v 1.2 2001/06/26 19:01:17 cph Exp $
 ;;;
 ;;; Copyright (c) 2001 Massachusetts Institute of Technology
 ;;;
@@ -107,7 +107,7 @@
 		(check-2-args expression)
 		`(,(car expression) ,(cadr expression)
 				    ,(do-expression (caddr expression))))
-	       ((PARSER)
+	       ((SEXP)
 		(let ((expression (check-1-arg expression)))
 		  (if (symbol? expression)
 		      expression
-- 
2.25.1