mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
17 lines
577 B
Scheme
17 lines
577 B
Scheme
|
|
(define-library (chibi iset base)
|
|
(cond-expand
|
|
(chibi (import (chibi) (srfi 9)))
|
|
(else (import (scheme base))))
|
|
(cond-expand
|
|
((library (srfi 151)) (import (srfi 151)))
|
|
((library (srfi 33)) (import (srfi 33)))
|
|
(else (import (srfi 60))))
|
|
(include "base.scm")
|
|
(cond-expand ;; workaround for #1342
|
|
(chicken (begin (define Integer-Set #f)))
|
|
(else))
|
|
(export
|
|
%make-iset make-iset iset? iset-contains? Integer-Set
|
|
iset-start iset-end iset-bits iset-left iset-right
|
|
iset-start-set! iset-end-set! iset-bits-set! iset-left-set! iset-right-set!))
|