Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

allow noop (index-rotate n n)

Browse source 
Closes #965.
This commit is contained in:
Alex Shinn 2024-05-26 22:00:43 +09:00
parent c96b0123a0
commit 953f3ada23
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/srfi/231/base.scm
View file

@ -24,7 +24,7 @@
(define (index-rotate n k) (define (index-rotate n k)
(assert (and (exact-integer? n) (assert (and (exact-integer? n)
(exact-integer? k) (exact-integer? k)
(< -1 k n))) (<= 0 k n)))
(list->vector (append (iota (- n k) k) (iota k)))) (list->vector (append (iota (- n k) k) (iota k))))
(define (index-first n k) (define (index-first n k)

1
lib/srfi/231/test.sld
View file

@ -926,6 +926,7 @@
(test-error (index-rotate 0 -2)) (test-error (index-rotate 0 -2))
(test-error (index-rotate 3 5)) (test-error (index-rotate 3 5))
(test '#(3 4 0 1 2) (index-rotate 5 3)) (test '#(3 4 0 1 2) (index-rotate 5 3))
(test '#(0 1 2 3 4) (index-rotate 5 5))
(test-error (index-swap 'a 3 0)) (test-error (index-swap 'a 3 0))
(test-error (index-swap 5 'a 0)) (test-error (index-swap 5 'a 0))