(bind-func extras_cc (lambda () (let ((val 0.0:f)) (lambda (inst:i8* offset:i32 cc:i32 value:i32) ;; (println 'extras_cc cc value) (set! val (/ (i32tof value) 127.0)) ;; nothing yet! void))))