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

remove redundant cond

Browse Source
This commit is contained in:
Robby Findler 2016-07-14 21:31:08 -05:00
parent 13c969528e
commit 6c95c7a142
1 changed files with 36 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
2d-lib/private/lexer.rkt
View File

@ -231,9 +231,6 @@ todo:
[else [else
;; drop replace specials with spaces ;; drop replace specials with spaces
(cons #\space (loop (- n 1)))])])))) (cons #\space (loop (- n 1)))])]))))
(cond
[else
;; pull the newline out of peek-port2 ;; pull the newline out of peek-port2
(for ([x (in-range (string-length eol-string))]) (read-char-or-special peek-port2)) (for ([x (in-range (string-length eol-string))]) (read-char-or-special peek-port2))
@ -270,7 +267,7 @@ todo:
(+ base-position 1 error-pos end-of-table-approx -1))) (+ base-position 1 error-pos end-of-table-approx -1)))
(if (zero? error-pos) (if (zero? error-pos)
(list newline-token after-token) (list newline-token after-token)
(list newline-token before-token after-token))])] (list newline-token before-token after-token))]
[else [else
(define lhses (close-cell-graph cell-connections (define lhses (close-cell-graph cell-connections