From e7bf554e568e74e1211186fe29b921a97893c60b Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Wed, 22 Nov 2017 23:28:54 +0100 Subject: pf-object fixes --- modules/language/python/bytes.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'modules/language/python') diff --git a/modules/language/python/bytes.scm b/modules/language/python/bytes.scm index 44c93bc..7700a00 100644 --- a/modules/language/python/bytes.scm +++ b/modules/language/python/bytes.scm @@ -57,7 +57,7 @@ (lp (+ i 1))))) (slot-set! self 'bytes bytes))) ((is-a? s ) - (__init__ self (slot-ref s 'bytes))) + (__init__ self (slot-ref s 'str))) ((is-a? s ) (slot-set! self 'bytes (slot-ref s 'bytes))) ((is-a? s ) @@ -67,12 +67,12 @@ (b (b-make n))) (bytevector-copy! (slot-ref s 'vec) 0 b 0 n) (slot-set! self 'bytes b))) - (else + (else (for ((x : s)) ((r '())) (cons (b-char x) r) #:final - (let* ((n (length r)) + (let* ((n (length r)) (bytes (b-make n))) (let lp ((i (- n 1)) (r r)) (if (>= i 0) -- cgit v1.2.3