Change name of language-shifting expression to SEXP.

diff --git a/v7/src/star-parser/matcher.scm b/v7/src/star-parser/matcher.scm
index bd9a78f1a1717ccac625a3fb93fddd5e2501a331..aae5931709ecd9e095629d82c5d9410811a80997 100644 (file)
--- 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 fe187b45f1f72630d2bc5254e8f3d60112e6ecdf..3df8e8263dfeef5c79ed26940367cb93362aaa08 100644 (file)
--- 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