17 lines
492 B
Scheme
17 lines
492 B
Scheme
; Copyright (c) 2003 RT Happe <rthappe at web de>
|
|
; See the file COPYING distributed with the Scheme Untergrund Library
|
|
|
|
;;; sequence procedures for specific types (for lists, actually)
|
|
;;; list-set! sublist list-fill!
|
|
|
|
;; unspecified return value as usual
|
|
(define (list-set! xs k x)
|
|
(set-car! (drop xs k) x))
|
|
|
|
(define (sublist xs start end)
|
|
(take (drop xs start) (- end start)))
|
|
|
|
;; unspecified return value
|
|
(define (list-fill! xs x)
|
|
(pair-for-each (lambda (p) (set-car! p x)) xs))
|