diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-04-12 21:33:56 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-04-12 21:33:56 +0200 |
| commit | 1fe962f1c47ae9de46298a7420b10ec271b2b9b7 (patch) | |
| tree | a824c97351e77a7164f1076bfc021afba8d6d211 /modules/language/python/bytes.scm | |
| parent | c653e3aca875247001fc49ac3c7b51f3b4771698 (diff) | |
io module tested and debugged
Diffstat (limited to 'modules/language/python/bytes.scm')
| -rw-r--r-- | modules/language/python/bytes.scm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/modules/language/python/bytes.scm b/modules/language/python/bytes.scm index 2acb9e5..e222c3e 100644 --- a/modules/language/python/bytes.scm +++ b/modules/language/python/bytes.scm @@ -16,10 +16,7 @@ <py-bytearray> pybytesarray-listing scm-bytevector)) (define (scm-bytevector x) - (cond - ((bytevector? x) x) - ((is-a? x <py-bytes> ) (slot-ref x 'bytes)) - ((is-a? x <py-bytearray>) (slot-ref x 'vec)))) + (slot-ref (bytes x) 'bytes)) (define (bytes->bytevector x) (slot-ref x 'bytes)) (define-syntax-rule (aif it p x y) (let ((it p)) (if it x y))) |