bind-lib   macro

;; this here for wrapping llvm dynamic binds
(define-macro (bind-lib library symname type . args)
  `(impc:ti:bind-lib ',library ',symname ',type
                     ;; calling convention
                     ,(if (and (not (null? args)) (number? (car args)))
                          (car args)
                          0) ;; 0=ccc
                     ;; docstring
                     ,(if (and (not (null? args)) (string? (car (reverse args))))
                          (car (reverse args))
                          "")))