;;;; -*- Hen -*-

(define (dynld-name fn)		
  (make-pathname #f fn ##sys#load-dynamic-extension))	

(compile -O2 -d0 -s sfht.scm -j sfht)
(compile -O2 -d0 -s sfht.import.scm)

(run (csi -qbs sfht-eggdoc.scm > sfht.html))

(install-extension

  ; Name of your extension:
  'sfht

  ; Files to install for your extension:
  `(,(dynld-name "sfht") ,(dynld-name "sfht.import") "sfht.html" )


  ; Assoc list with properties for your extension:
  '((version 2.4)
    (documentation "sfht.html")
    ))