conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Couple of typos in match.ss (reported in bug 175811).

This commit is contained in:
Abdulaziz Ghuloum 2007-12-12 06:49:57 -05:00
parent 3512b4d112
commit 28496998bb
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
other-libs/match.ss
View File

@ -105,7 +105,7 @@
equal? equal?
(lambda (x) (lambda (x)
(unless (procedure? x) (unless (procedure? x)
(error 'match-equality-test "~s is not a procedure" x)) (error 'match-equality-test "not a procedure" x))
x))) x)))
(define-syntax match+ (define-syntax match+
@ -128,7 +128,7 @@
((ctxt (ThreadedId ...) Name Exp Clause ...) ((ctxt (ThreadedId ...) Name Exp Clause ...)
#'(letrec ((f (trace-lambda Name (ThreadedId ... x) #'(letrec ((f (trace-lambda Name (ThreadedId ... x)
(match-help ctxt f x (ThreadedId ...) Clause ...)))) (match-help ctxt f x (ThreadedId ...) Clause ...))))
(f ThreadedId ... x)))))) (f ThreadedId ... Exp))))))
(define-syntax trace-match (define-syntax trace-match
(lambda (x) (lambda (x)
@ -499,7 +499,7 @@
(if (and (null? ExpVar) ...) (if (and (null? ExpVar) ...)
TailExp TailExp
(error 'unquote (error 'unquote
"Mismatched lists in ~s" "Mismatched lists"
Orig)))) Orig))))
(append #'(ExpVar ...) #'RestVars) (append #'(ExpVar ...) #'RestVars)
(append #'(ExpExp ...) #'RestExps))))))))) (append #'(ExpExp ...) #'RestExps)))))))))
@ -774,7 +774,7 @@
;; (match x ;; (match x
;; ((program ,(Stmt -> s*) ... ,(Expr -> e)) ;; ((program ,(Stmt -> s*) ... ,(Expr -> e))
;; `(begin ,s* ... ,e)) ;; `(begin ,s* ... ,e))
;; (,other (error 'parse "invalid program ~s" other))))) ;; (,other (error 'parse "invalid program" other)))))
;; (define Stmt ;; (define Stmt
;; (lambda (x) ;; (lambda (x)
;; (match x ;; (match x
@ -783,7 +783,7 @@
;; ((set! ,v ,(Expr -> e)) ;; ((set! ,v ,(Expr -> e))
;; (guard (symbol? v)) ;; (guard (symbol? v))
;; `(set! ,v ,e)) ;; `(set! ,v ,e))
;; (,other (error 'parse "invalid statement ~s" other))))) ;; (,other (error 'parse "invalid statement" other)))))
;; (define Expr ;; (define Expr
;; (lambda (x) ;; (lambda (x)
;; (match x ;; (match x
@ -792,7 +792,7 @@
;; ((if ,(e1) ,(e2) ,(e3)) ;; ((if ,(e1) ,(e2) ,(e3))
;; `(if ,e1 ,e2 ,e3)) ;; `(if ,e1 ,e2 ,e3))
;; ((,(rator) ,(rand*) ...) `(,rator ,rand* ...)) ;; ((,(rator) ,(rand*) ...) `(,rator ,rand* ...))
;; (,other (error 'parse "invalid expression ~s" other))))) ;; (,other (error 'parse "invalid expression" other)))))
;; (Prog x))) ;; (Prog x)))
;;; (parse '(program (set! x 3) (+ x 4)))) => (begin (set! x 3) (+ x 4)) ;;; (parse '(program (set! x 3) (+ x 4)))) => (begin (set! x 3) (+ x 4))