A couple typos:
=== modified file 'scheme/ikarus.pointers.ss' --- scheme/ikarus.pointers.ss 2009-04-30 09:35:49 +0000 +++ scheme/ikarus.pointers.ss 2009-05-01 05:02:52 +0000 @@ -127,7 +127,7 @@ (unless (and (fixnum? src-offset) (fx>=? src-offset 0)) (die who "not a positive fixnum" src-offset)) (unless (and (fixnum? count) (fx>=? count 0)) - (die who "not a postive fixnum" count)) + (die who "not a positive fixnum" count)) (cond ((and (pointer? dst) (bytevector? src)) (unless (fx<=? (fx+ src-offset count) (bytevector-length src)) (die who "source bytevector length exceeded" @@ -142,7 +142,7 @@ dst dst-offset (pointer+ src src-offset) count)) (else (die who "destination and source not a bytevector/pointer pair" - dst dst)))) + dst src))))
;;; getters and setters
A couple typos:
=== modified file 'scheme/ ikarus. pointers. ss' ikarus. pointers. ss 2009-04-30 09:35:49 +0000 ikarus. pointers. ss 2009-05-01 05:02:52 +0000
dst dst-offset (pointer+ src src-offset) count))
--- scheme/
+++ scheme/
@@ -127,7 +127,7 @@
(unless (and (fixnum? src-offset) (fx>=? src-offset 0))
(die who "not a positive fixnum" src-offset))
(unless (and (fixnum? count) (fx>=? count 0))
- (die who "not a postive fixnum" count))
+ (die who "not a positive fixnum" count))
(cond ((and (pointer? dst) (bytevector? src))
(unless (fx<=? (fx+ src-offset count) (bytevector-length src))
(die who "source bytevector length exceeded"
@@ -142,7 +142,7 @@
(else
(die who "destination and source not a bytevector/pointer pair"
- dst dst))))
+ dst src))))
;;; getters and setters