import clause in cond-expand doesn't work properly

[Takashi Kato]

This script should be able to compile. (For compatibility of Chibi)

(define-library (hi fuh)
  (export buh)
  (cond-expand
   (chibi (import (scheme base) (chibi io)))
   (sagittarius (import (scheme base))))
  (begin
    (define (buh) "buh")))

(import (scheme base) (scheme write) (hi fuh))
(display (buh))
(newline) 

Possible solution; 1. import import when creates an empty R7RS library. 2. check all import clause in cond-expand

#1 may be the better way.

[Takashi Kato]

Did the #1.