(define-library (hascheme inexact)
  (import (hascheme base) (hascheme eager)
          (prefix (scheme inexact) r7rs:))
  (export finite? infinite? nan? exp log sin cos tan asin acos atan sqrt)
  (begin
    (define-wrappers-from-strict
        ;; Numbers
      ((finite? x) r7rs:finite?)
      ((infinite? x) r7rs:infinite?)
      ((nan? x) r7rs:nan?)
      ((exp z) r7rs:exp)
      (log r7rs:log)
      ((sin x) r7rs:sin)
      ((cos x) r7rs:cos)
      ((tan x) r7rs:tan)
      ((asin x) r7rs:asin)
      ((acos x) r7rs:acos)
      (atan r7rs:atan)
      (sqrt r7rs:sqrt))))