minor fixes etc.

This commit is contained in:
Rolf-Thomas Happe 2003-02-16 22:39:24 +00:00
parent d6862b856f
commit 50452d1f7a
2 changed files with 2 additions and 4 deletions

View File

@ -20,7 +20,7 @@
(apply vector-fill! s x opts))
((string? s)
(apply string-fill! s x opts))
((pair? s)
((and (pair? s) (null? opts))
(apply list-fill! s x opts))
(else
(apply contiguous-sequence-fill! s x opts))))

View File

@ -11,8 +11,6 @@
(define (sublist xs start end)
(take (drop xs start) (- end start)))
;; unspecified return value
;; unspecified return value -- no [start end] for now
(define (list-fill! xs x)
(pair-for-each (lambda (p) (set-car! p x)) xs))