From 7707065a2df84c53febba7ddd5a5055cb230e00c Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 18 Nov 2006 23:10:47 +0000 Subject: [PATCH] cond -> case svn: r4882 --- collects/errortrace/errortrace-lib.ss | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/collects/errortrace/errortrace-lib.ss b/collects/errortrace/errortrace-lib.ss index 71c80f9475..9f34922bd8 100644 --- 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)