diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-11-22 23:28:54 +0100 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-11-22 23:28:54 +0100 |
commit | e7bf554e568e74e1211186fe29b921a97893c60b (patch) | |
tree | 885f75a2ac198a9f453ad2b103f2170c5e35fbd6 /modules/language/python/bytes.scm | |
parent | c183579b8d49863da4d80faac32fd2aa620d7549 (diff) |
pf-object fixes
Diffstat (limited to 'modules/language/python/bytes.scm')
-rw-r--r-- | modules/language/python/bytes.scm | 6 |
1 files changed, 3 insertions, 3 deletions
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 <py-string>) - (__init__ self (slot-ref s 'bytes))) + (__init__ self (slot-ref s 'str))) ((is-a? s <py-bytes>) (slot-set! self 'bytes (slot-ref s 'bytes))) ((is-a? s <bytevector>) @@ -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) |