fix extend to handle negative lengths
svn: r17540
This commit is contained in:
parent
7c9d1b47cf
commit
0044d86271
|
@ -33,7 +33,7 @@
|
|||
;; Listof[A] Listof[B] B -> Listof[B]
|
||||
;; pads out t to be as long as s
|
||||
(define (extend s t extra)
|
||||
(append t (build-list (- (length s) (length t)) (lambda _ extra))))
|
||||
(append t (build-list (max 0 (- (length s) (length t))) (lambda _ extra))))
|
||||
|
||||
(provide filter-multiple extend)
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user