(bind-func svm_parse_line (lambda (line ) (let ((label (strtok line " \t\n"))) (if (null? label) (begin (println "error on line"))))))