diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-10-15 21:24:44 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-10-15 21:24:44 +0200 |
| commit | a7346773d6b517fc09e5b776fb685daffc228528 (patch) | |
| tree | 6cf641f121e2b9f9cb1e8beaa1d7657cc11a4b68 /modules/language/python/str.scm | |
| parent | 7852343a565da36a09340306a57cae9d3239337a (diff) | |
bytevecor improvements
Diffstat (limited to 'modules/language/python/str.scm')
| -rw-r--r-- | modules/language/python/str.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/modules/language/python/str.scm b/modules/language/python/str.scm index e4e821b..ef09def 100644 --- a/modules/language/python/str.scm +++ b/modules/language/python/str.scm @@ -71,7 +71,8 @@ (define-method (f (o <py-str>) . l) (apply f (slot-ref o 'str) l)))) (define-method (write (b <py-str>) . l) - (apply write (b->string (slot-ref b 'str)) l)) + (define port (if (pair? l) (car l) #t)) + (format port "b~s" (b->string (slot-ref b 'str)))) (define dynlink (dynamic-link)) |