Permalink
Fetching contributors…
Cannot retrieve contributors at this time
6 lines (5 sloc) 243 Bytes
(c-define (f str) (nonnull-char-string) int "f" ""
(string->number str))
(define t1 (c-lambda () int "___result = f (\"123\");"))
(define t2 (c-lambda () int "___result = f (NULL);"))
(define t3 (c-lambda () int "___result = f (\"1.5\");"))