suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cond -> case

Browse Source 
svn: r4882
This commit is contained in:
Eli Barzilay 2006-11-18 23:10:47 +00:00
parent 8d8ed4589c
commit 7707065a2d
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/errortrace/errortrace-lib.ss
View File

@ -170,11 +170,7 @@
(for-each (lambda (s) (for-each (lambda (s)
(let ([pos (sub1 (syntax-position (car s)))] (let ([pos (sub1 (syntax-position (car s)))]
[span (syntax-span (car s))] [span (syntax-span (car s))]
[key (let ([c (cdr s)]) [key (case (cdr s) [(0) #\^] [(1) #\.] [else #\,])])
(cond
[(zero? c) #\^]
[(= c 1) #\.]
[else #\,]))])
(let loop ([p pos]) (let loop ([p pos])
(unless (= p (+ pos span)) (unless (= p (+ pos span))
(string-set! pic p key) (string-set! pic p key)