Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 04:55:04 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove form feed characters

Browse source
This commit is contained in:
Justin Ethier 2016-08-22 17:52:51 -04:00
parent 80c10d8eb9
commit 4d112824f3
1 changed files with 0 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
srfi/vectors/vectors-impl.scm
View file

@ -75,7 +75,6 @@
;;; Efficiency of the actual algorithms is a rather mundane point to ;;; Efficiency of the actual algorithms is a rather mundane point to
;;; mention; vector operations are rarely beyond being straightforward. ;;; mention; vector operations are rarely beyond being straightforward.
;;; -------------------- ;;; --------------------
;;; Utilities ;;; Utilities
@ -132,7 +131,6 @@
(define (vectors-ref vectors i) (define (vectors-ref vectors i)
(map (lambda (v) (vector-ref v i)) vectors)) (map (lambda (v) (vector-ref v i)) vectors))
;;; -------------------- ;;; --------------------
;;; Error checking ;;; Error checking
@ -250,7 +248,6 @@
(else (else
(values start end))))) (values start end)))))
;;; -------------------- ;;; --------------------
;;; Internal routines ;;; Internal routines
@ -436,7 +433,6 @@
(lambda (f target vectors len) (lambda (f target vectors len)
(loop f target vectors len)))) (loop f target vectors len))))
;;;;;;;;;;;;;;;;;;;;;;;; ***** vector-lib ***** ;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;; ***** vector-lib ***** ;;;;;;;;;;;;;;;;;;;;;;;
@ -689,7 +685,6 @@
(receive (vecs starts ends) (gather-args args) (receive (vecs starts ends) (gather-args args)
(define result (make-vector (total-length starts ends))) (define result (make-vector (total-length starts ends)))
(copy-each! result vecs starts ends))) (copy-each! result vecs starts ends)))
;;; -------------------- ;;; --------------------
;;; Predicates ;;; Predicates
@ -752,12 +747,10 @@
(and (= length-a length-b) (and (= length-a length-b)
(loop 0)))))) (loop 0))))))
;;; -------------------- ;;; --------------------
;;; Selectors ;;; Selectors
;;; -------------------- ;;; --------------------
;;; Iteration ;;; Iteration
@ -933,7 +926,6 @@
(vector-set! result i r) (vector-set! result i r)
(loop (+ i 1) r)))))) (loop (+ i 1) r))))))
;;; -------------------- ;;; --------------------
;;; Searching ;;; Searching
@ -1132,7 +1124,6 @@
(vector-set! result no elem) (vector-set! result no elem)
(loop (+ i 1) yes (+ no 1))))))))) (loop (+ i 1) yes (+ no 1)))))))))
;;; -------------------- ;;; --------------------
;;; Mutators ;;; Mutators
@ -1244,7 +1235,6 @@
(start end) (start end)
(%vector-reverse! vec start end))) (%vector-reverse! vec start end)))
;;; -------------------- ;;; --------------------
;;; Conversion ;;; Conversion