(bind-func toString
"specialised toString function for Complexf"
(lambda (c:Complexf*)
(let ((str:i8* (salloc 256)))
(if (null? c)
(sprintf str "<Complexf 0x0>")
(sprintf str "%.2f%+.2fi"
(ftod (tref c 0))
(ftod (tref c 1))))
(Str str))))