conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.md
View File

@ -70,7 +70,7 @@
| 6.5 Symbols | yes | | | 6.5 Symbols | yes | |
| 6.6 Characters | yes | | | 6.6 Characters | yes | |
| 6.7 Strings | yes | `substring` is not provided | | 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.9 Bytevectors | incomplete | TODO: string<->utf8 conversion, etc |
| 6.10 Control features | incomplete | TODO: `string-map`, `vector-map`, ...etc | | 6.10 Control features | incomplete | TODO: `string-map`, `vector-map`, ...etc |
| 6.11 Exceptions | yes | TODO: native error handling | | 6.11 Exceptions | yes | TODO: native error handling |

6
piclib/built-in.scm
View File

@ -503,6 +503,12 @@
#f) #f)
(vector-set! v i fill)))) (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 ;;; 6.9 bytevector
(define (bytevector . objs) (define (bytevector . objs)