add missing vector functions

This commit is contained in:
Yuichi Nishiwaki 2013-11-18 01:29:54 +09:00
parent 7fbff9384e
commit 926924982d
2 changed files with 7 additions and 1 deletions

View File

@ -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 |

View File

@ -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)