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

typo in vector-select!

Browse source
This commit is contained in:
Alex Shinn 2018-02-01 15:43:46 +09:00
parent 13a8c50373
commit 7ae96fdba5
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/srfi/132/sort.scm
View file

@ -122,7 +122,7 @@
;; Permutes vec in-place to move the k smallest elements as ordered by ;; Permutes vec in-place to move the k smallest elements as ordered by
;; < to the beginning of the vector (unsorted). Returns the nth smallest. ;; < to the beginning of the vector (unsorted). Returns the nth smallest.
(define (vector-select! < vec k . o) (define (vector-select! less vec k . o)
(let* ((left (if (pair? o) (car o) 0)) (let* ((left (if (pair? o) (car o) 0))
(k (+ k left))) (k (+ k left)))
(if (not (<= 0 k (vector-length vec))) (if (not (<= 0 k (vector-length vec)))
@ -134,8 +134,8 @@
1))) 1)))
(if (>= left right) (if (>= left right)
(vector-ref vec left) (vector-ref vec left)
(let* ((pivot (choose-pivot < vec left right)) (let* ((pivot (choose-pivot less vec left right))
(pivot-index (vector-partition! < vec left right pivot))) (pivot-index (vector-partition! less vec left right pivot)))
(cond (cond
((= k pivot-index) ((= k pivot-index)
(vector-ref vec k)) (vector-ref vec k))