;; -*- Hen -*- (define (dynld-name fn) (make-pathname #f fn ##sys#load-dynamic-extension)) (compile -O3 -d2 -s -J -emit-type-file "srfi-128.types" "comparators/comparators.scm") (compile -O3 -d0 -s -J "comparators/comparators.scm" -o ,(dynld-name "srfi-128")) (compile -s -O2 -d0 "srfi-128.import.scm") (install-extension 'srfi-128 `("srfi-128.types" ,(dynld-name "srfi-128") ,(dynld-name "srfi-128.import")) '((version "0.6")))