diff options
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)) |