#! /bin/sh
#| -*- scheme -*-
exec csi -s $0 "$@"
|#

(use r7rs)
(import-for-syntax r7rs)

(define-library (hi fuh)
  (export buh)
  (import (chicken) (srfi-4) (feature-test))
  (begin
    (define (buh) (u8vector 1 2 3))
    (register-feature! 'hi.fuh)))

(define-library (ok ekk)
  (export buhbuh)
  (import (hi fuh))
  (begin
    (define (buhbuh) (buh))))


(import (ok ekk))
(display (buhbuh))
(newline)