applicable structs used
[software/python-on-guile.git] / modules / language / python / exceptions.scm
index 52ce80781548777a0e77c168272c9c44c8bc1167..1bbec08179c79e329b953f65edafc1cfff975835 100644 (file)
        (set self 'str str))))
                  
   (define __repr__
-    (lambda (self . l)
-      (define port (if (pair? l) (car l) #f))
-      (aif it (ref self 'str)
-           (format port "<~s: ~a>"
+    (lambda (self)
+      (aif it (ref self 'str #f)
+           (format #f "~a:~a"
                    (ref self '__name__) it)
-           (format port "<~s>"
+           (format #f "~a"
                    (ref self '__name__))))))