;; -*- Hen -*-

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

(compile -O3 -d0 -s mbox.scm -j mbox)
(compile -s mbox.import.scm)

(install-extension

 ;; Name of your extension:
  'mbox

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

  ;; Assoc list with properties for your extension:
  '((version 4.0)
    ))


(compile -O3 -d0 -s mbox-string.scm -j mbox-string)
(compile -s mbox-string.import.scm)

(install-extension

 ;; Name of your extension:
  'mbox-string

  ;; Files to install for your extension:
  `(,(dynld-name "mbox-string") ,(dynld-name "mbox-string.import") )
  
  ;; Assoc list with properties for your extension:
  '((version 4.0)
    ))