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