From a7346773d6b517fc09e5b776fb685daffc228528 Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Sun, 15 Oct 2017 21:24:44 +0200 Subject: bytevecor improvements --- modules/language/python/str.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'modules/language/python/str.scm') 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 ) . l) (apply f (slot-ref o 'str) l)))) (define-method (write (b ) . 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)) -- cgit v1.2.3