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

correcting offset error

Browse Source
This commit is contained in:
Danny Yoo 2011-09-03 20:39:12 -04:00
parent c96dae3c40
commit 93a1987537
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
private/command.rkt
View File

@ -117,7 +117,7 @@
;; are eaten in the process. ;; are eaten in the process.
(define (wrap-to-count str n) (define (wrap-to-count str n)
(cond (cond
[(< (string-length str) n) (list str)] [(<= (string-length str) n) (list str)]
[(regexp-match-positions #rx"\n" str 0 n) [(regexp-match-positions #rx"\n" str 0 n)
=> =>
(λ (posn) (λ (posn)
@ -125,7 +125,7 @@
(cons (substring str 0 x) (wrap-to-count (substring str y) n))))] (cons (substring str 0 x) (wrap-to-count (substring str y) n))))]
[else [else
;; iterate backwards from char n looking for a good break ;; iterate backwards from char n looking for a good break
(let loop ([k (sub1 n)]) (let loop ([k n])
(cond (cond
[(= k 0) (error wrap-to-count "could not break string")] [(= k 0) (error wrap-to-count "could not break string")]
[(char=? (string-ref str k) #\space) [(char=? (string-ref str k) #\space)