Unable to create R7RS libraries which don't import quote

[Alex Shinn]

Trying to define an R7RS library which doesn't import quote (e.g. an aggregate library which just re-exports from other libraries), results in the following warning and fails to compile:

Warning: reference to possibly unbound identifier `quote'
Warning:    suggesting one of:
Warning:    (import r5rs-null)
Warning:    (import r4rs-null)
Warning:    (import scheme)
Warning:    (import r4rs)

[Alex Shinn]

This may be more complicated than I thought. The example is:

(define-library (chibi iset)
  (import (chibi iset base)
          (chibi iset iterators)
          (chibi iset constructors))
  (export
   %make-iset make-iset iset? iset-contains? Integer-Set
   iset iset-copy list->iset list->iset!
   iset-adjoin iset-adjoin! iset-delete iset-delete!
   iset-union iset-union! iset-intersection iset-intersection!
   iset-difference iset-difference!
   iset-empty? iset-fold iset-fold-node iset-for-each iset-for-each-node
   iset-map iset->list iset-size iset= iset<= iset>=
   iset-cursor iset-cursor? iset-cursor-next iset-ref end-of-iset?))

with the 3 imported libraries as implemented in chibi, all of which build successfully. However, attempts to create a smaller example have failed.

[Alex Shinn]

The code in question is at: ​https://github.com/ashinn/chibi-scheme/blob/master/lib/chibi/iset.sld.

The same quote bug also occurs in ​https://github.com/ashinn/chibi-scheme/blob/master/lib/chibi/regexp.sld if the (cond-expand ((library (srfi 33)) (import (srfi 33))) (else (import (srfi 60)))) precedes (import (scheme base)).

[evhan]

​Patch posted to hackers.

[evhan]

Fixed by 59f200db.

[sjamaan]

Ticket retargeted after milestone deleted