debuggings
[software/python-on-guile.git] / modules / language / python / string.scm
index ad47a20ee198628afbde2eb5d744a8839e1ae445..81b5a063382ec32df2eeac5a58058e862eb0fcd3 100644 (file)
       ((self s)
        (cond
         ((is-a? s <py-string>)
-         (slot-set! self 'str (slot-ref s 'src)))
+         (slot-ref s 'src))
         ((is-a? s <string>)
-         (slot-set! self 'str s))))))
+         s)
+       (else
+        (__init__ self ((@ (guile) format) #f "~a" s)))))))
+  
+  (define __new__ (lambda x (apply __init__ x)))
 
   (define __repr__
     (lambda (self)