From 28496998bbd57bff6858b8e2ca88c95d9e3c1e8c Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Wed, 12 Dec 2007 06:49:57 -0500 Subject: [PATCH] Couple of typos in match.ss (reported in bug 175811). --- other-libs/match.ss | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/other-libs/match.ss b/other-libs/match.ss index 041ac0c..2c70124 100644 --- a/other-libs/match.ss +++ b/other-libs/match.ss @@ -105,7 +105,7 @@ equal? (lambda (x) (unless (procedure? x) - (error 'match-equality-test "~s is not a procedure" x)) + (error 'match-equality-test "not a procedure" x)) x))) (define-syntax match+ @@ -128,7 +128,7 @@ ((ctxt (ThreadedId ...) Name Exp Clause ...) #'(letrec ((f (trace-lambda Name (ThreadedId ... x) (match-help ctxt f x (ThreadedId ...) Clause ...)))) - (f ThreadedId ... x)))))) + (f ThreadedId ... Exp)))))) (define-syntax trace-match (lambda (x) @@ -499,7 +499,7 @@ (if (and (null? ExpVar) ...) TailExp (error 'unquote - "Mismatched lists in ~s" + "Mismatched lists" Orig)))) (append #'(ExpVar ...) #'RestVars) (append #'(ExpExp ...) #'RestExps))))))))) @@ -774,7 +774,7 @@ ;; (match x ;; ((program ,(Stmt -> s*) ... ,(Expr -> e)) ;; `(begin ,s* ... ,e)) -;; (,other (error 'parse "invalid program ~s" other))))) +;; (,other (error 'parse "invalid program" other))))) ;; (define Stmt ;; (lambda (x) ;; (match x @@ -783,7 +783,7 @@ ;; ((set! ,v ,(Expr -> e)) ;; (guard (symbol? v)) ;; `(set! ,v ,e)) -;; (,other (error 'parse "invalid statement ~s" other))))) +;; (,other (error 'parse "invalid statement" other))))) ;; (define Expr ;; (lambda (x) ;; (match x @@ -792,7 +792,7 @@ ;; ((if ,(e1) ,(e2) ,(e3)) ;; `(if ,e1 ,e2 ,e3)) ;; ((,(rator) ,(rand*) ...) `(,rator ,rand* ...)) -;; (,other (error 'parse "invalid expression ~s" other))))) +;; (,other (error 'parse "invalid expression" other))))) ;; (Prog x))) ;;; (parse '(program (set! x 3) (+ x 4)))) => (begin (set! x 3) (+ x 4))