(define-package "ffi-tools" (0 1 0)
  ((install-lib-version (1 0)))

  (let ((scheme-dir (get-directory 'scheme #f))
	(lib-dir (get-directory 'lib #f)))
    (write-to-load-script
     `((config)
       (run '(define-structure ffi-tools-path 
		 (export ffi-tools-lib-path)
	       (open scheme)
	       (begin
		 (define (ffi-tools-lib-path) ,lib-dir))))
       (load ,(string-append scheme-dir "/packages-run.scm"))
       (load ,(string-append scheme-dir "/packages-gen.scm"))
       (user))))
  
  (install-directory-contents "scheme" 'scheme)
  (install-directory-contents "c" 'lib)
)