add missing vector functions
This commit is contained in:
parent
7fbff9384e
commit
926924982d
|
@ -70,7 +70,7 @@
|
|||
| 6.5 Symbols | yes | |
|
||||
| 6.6 Characters | yes | |
|
||||
| 6.7 Strings | yes | `substring` is not provided |
|
||||
| 6.8 Vectors | incomplete | string->vector, vector->string, ...etc |
|
||||
| 6.8 Vectors | yes | |
|
||||
| 6.9 Bytevectors | incomplete | TODO: string<->utf8 conversion, etc |
|
||||
| 6.10 Control features | incomplete | TODO: `string-map`, `vector-map`, ...etc |
|
||||
| 6.11 Exceptions | yes | TODO: native error handling |
|
||||
|
|
|
@ -503,6 +503,12 @@
|
|||
#f)
|
||||
(vector-set! v i fill))))
|
||||
|
||||
(define (vector->string . args)
|
||||
(list->string (apply vector->list args)))
|
||||
|
||||
(define (string->vector . args)
|
||||
(list->vector (apply string->list args)))
|
||||
|
||||
;;; 6.9 bytevector
|
||||
|
||||
(define (bytevector . objs)
|
||||
|
|
Loading…
Reference in New Issue