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

fixes from Jed Davis

Browse Source 
svn: r13388
This commit is contained in:
Robby Findler 2009-02-03 19:25:08 +00:00
parent f0cac461e7
commit 9bbed05671
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/redex/private/dot.ss
View File

@ -210,7 +210,10 @@
void)) void))
(define (parse-edge line) (define (parse-edge line)
(define (give-up)
(error 'redex "could not parse edge line:\n ~s\n" line))
(let* ([m (regexp-match #rx"edge ([^ ]+) ([^ ]+) ([0-9]+) (.*)$" line)] (let* ([m (regexp-match #rx"edge ([^ ]+) ([^ ]+) ([0-9]+) (.*)$" line)]
[_ (unless m (give-up))]
[from (list-ref m 1)] [from (list-ref m 1)]
[to (list-ref m 2)] [to (list-ref m 2)]
[point-count (string->number (list-ref m 3))] [point-count (string->number (list-ref m 3))]
@ -220,7 +223,8 @@
[rest rest]) [rest rest])
(if (zero? pts) (if (zero? pts)
'() '()
(let* ([m (regexp-match #rx"^([0-9.]+) ([0-9.]+) (.*)$" rest)] (let* ([m (regexp-match #rx"^([-0-9.]+) ([-0-9.]+) (.*)$" rest)]
[_ (unless m (give-up))]
[x (string->number (list-ref m 1))] [x (string->number (list-ref m 1))]
[y (string->number (list-ref m 2))]) [y (string->number (list-ref m 2))])
(set! max-y (max y max-y)) (set! max-y (max y max-y))