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

small cleanup

Browse Source
This commit is contained in:
Robby Findler 2012-09-12 15:40:52 -05:00
parent e7b1af845b
commit b8acee5655
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/redex/private/core-layout.rkt
View File

@ -340,7 +340,7 @@
0))]) 0))])
(cond (cond
[(and after-next-lw (null? to-wrap)) [(and after-next-lw (null? to-wrap))
(list* next-lw (loop after-next-lw next-line next-column))] (cons next-lw (loop after-next-lw next-line next-column))]
[(and (not after-next-lw) (null? to-wrap)) [(and (not after-next-lw) (null? to-wrap))
'()] '()]
[else [else
@ -443,10 +443,9 @@
(set! gobbled-lines (+ gobbled-lines lines-to-end))] (set! gobbled-lines (+ gobbled-lines lines-to-end))]
[else [else
;; insert a bunch of blank lines ;; insert a bunch of blank lines
(for-each (for/list ([i (in-range 1 lines-to-end)])
(λ (i) (define new-line (make-line (+ (- current-line gobbled-lines) i) '()))
(set! lines (cons (make-line (+ (- current-line gobbled-lines) i) '()) lines))) (set! lines (cons new-line lines)))])
(build-list (- lines-to-end 1) add1))])
(set! tokens (cons (make-spacer-token 0 (- col initial-column)) (set! tokens (cons (make-spacer-token 0 (- col initial-column))