;; -*- Hen -*- (define has-exports? (string>=? (chicken-version) "2.310")) (define (dynld-name fn) (make-pathname #f fn ##sys#load-dynamic-extension)) (compile -O2 -d0 -s ,@(if has-exports? '(-check-imports -emit-exports uri-generic.exports) '()) uri-generic.scm) (install-extension ;; Name of your extension: 'uri-generic ;; Files to install for your extension: `(,(dynld-name "uri-generic") ,@(if has-exports? '("uri-generic.exports") (list)) ) ;; Assoc list with properties for your extension: '((version 1.1) (documentation "uri-generic.html") ,@(if has-exports? `((exports "uri-generic.exports")) (list)) ))