;;;; -*- Hen -*-

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

(compile
  -fixnum-arithmetic
  -disable-interrupts   ;we manipulate system structures
  -no-procedure-checks  ;we do explicit checks
  -no-bound-checks      ;we manipulate unbound variables
  -O2 -d1
  -s environments.scm -j environments)
(compile -O3 -d0 -s environments.import.scm)

(install-extension 'environments
  `(,(dynld-name "environments") ,(dynld-name "environments.import") )
  `((version "1.6.0")
    (documentation "environments.html")))