(import lazy-ffi (chicken pretty-print))

(cond-expand 
  (linux #~"libdl.so.2")
  (else))

(define atof (#~dlsym pointer: #f "atof" return: pointer:)) ; lookup in current module

(print atof)    ; ==> "#<pointer 1077736272.0>"

(pp (#~~ atof "99" return: double:))    ; ==> 99.0