(foreign-declare "#include \"implementations/blowfish/crypt_blowfish.c\"")

(define (crypt-blowfish password setting)
  (let ((output (make-string 60)))
   (if ((foreign-lambda c-pointer "_crypt_blowfish_rn"
                        c-string c-string scheme-pointer int)
        password setting output 60)
       output
       ;; TODO: implement proper error handling
       (error "Error running blowfish crypt"))))