Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 00:37:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

API changes to (list-insert-at!)

Browse source
This commit is contained in:
Justin Ethier 2015-05-22 01:19:03 -04:00
parent 91d8a981fb
commit a2c511a29b
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/cyclone.scm
View file

@ -48,9 +48,9 @@
(recur lis))
;; Insert obj at index k of list, increasing length of list by one.
(define (list-insert! lis k obj)
(define (list-insert-at! lis obj k)
(cond
((null? lis) (error "list-insert, lis cannot be null"))
((null? lis) (error "list-insert-at!, lis cannot be null"))
((and (> k 0) (null? (cdr lis)))
(set-cdr! lis (cons obj '())))
((zero? k)
@ -58,5 +58,5 @@
(set-car! lis obj)
(set-cdr! lis (cons old-car (cdr lis)))))
(else
(list-insert! (cdr lis) (- k 1) obj))))
(list-insert-at! (cdr lis) obj (- k 1)))))