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

some bug fixes

Browse Source
This commit is contained in:
Sunrim KIM (keen)
2014-05-29 03:58:04 +09:00
parent 65038c9504
commit 6ccfa7ad69
2 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
piclib/built-in.scm
+2 -2
View File
@@ -733,7 +733,7 @@
(end (if (>= (length opts) 2)
(cadr opts)
(vector-length v))))
(let ((res (make-vector (vector-length v))))
(let ((res (make-vector (- end start))))
(vector-copy! res 0 v start end)
res)))
@@ -792,7 +792,7 @@
(end (if (>= (length opts) 2)
(cadr opts)
(bytevector-length v))))
(let ((res (make-bytevector (bytevector-length v))))
(let ((res (make-bytevector (- end start))))
(bytevector-copy! res 0 v start end)
res)))