remove redundant cond
This commit is contained in:
parent
13c969528e
commit
6c95c7a142
|
@ -231,9 +231,6 @@ todo:
|
|||
[else
|
||||
;; drop replace specials with spaces
|
||||
(cons #\space (loop (- n 1)))])]))))
|
||||
(cond
|
||||
|
||||
[else
|
||||
|
||||
;; pull the newline out of 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)))
|
||||
(if (zero? error-pos)
|
||||
(list newline-token after-token)
|
||||
(list newline-token before-token after-token))])]
|
||||
(list newline-token before-token after-token))]
|
||||
[else
|
||||
|
||||
(define lhses (close-cell-graph cell-connections
|
||||
|
|
Loading…
Reference in New Issue
Block a user