cond -> case

svn: r4882
2006-11-18 23:10:47 +00:00 · 2006-11-18 23:10:47 +00:00 · 7707065a2d
commit 7707065a2d
parent 8d8ed4589c
1 changed files with 1 additions and 5 deletions
--- a/collects/errortrace/errortrace-lib.ss
+++ b/collects/errortrace/errortrace-lib.ss
@ -170,11 +170,7 @@
          (for-each (lambda (s)
                      (let ([pos (sub1 (syntax-position (car s)))]
                            [span (syntax-span (car s))]
-                            [key (let ([c (cdr s)])
-                                   (cond
-                                    [(zero? c) #\^]
-                                    [(= c 1) #\.]
-                                    [else #\,]))])
+                            [key (case (cdr s) [(0) #\^] [(1) #\.] [else #\,])])
                        (let loop ([p pos])
                          (unless (= p (+ pos span))
                            (string-set! pic p key)