- (define-module (utils vector))
- (use-modules
- ;; SRFI-43 for additional vector operations
- (srfi srfi-43))
- (define-public vector-take-except-ref
- (lambda (vec not-taken-index)
- (vector-append (vector-copy vec 0 not-taken-index)
- (vector-copy vec (+ not-taken-index 1) (vector-length vec)))))
|
