(bind-func toString "specialised toString function for HistBin*" (lambda (histbin:HistBin*) (let ((str:i8* (salloc 256))) (if (null? histbin) (sprintf str "<HistBin 0x0>")