scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
s48/sequences/composeqs.scm
View File

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

4
s48/sequences/specseqs.scm
View File

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