beoliver · August 29, 2015 14:20
diff --git a/Scheme_set-nth!.scm b/Scheme_set-nth!.scm
 (require r5rs)

 (define (set-nth! n xs x)
  (cond ((null? xs) (error "index out of bounds"))
        ((eq? n 0)  (set-car! xs x))
        (#t         (set-nth! (- n 1) (cdr xs) x))))
	(require r5rs)

	(define (set-nth! n xs x)
	(cond ((null? xs) (error "index out of bounds"))
	((eq? n 0) (set-car! xs x))
	(#t (set-nth! (- n 1) (cdr xs) x))))