mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-18 21:29:19 +02:00
60 lines
2.1 KiB
Scheme
60 lines
2.1 KiB
Scheme
|
|
(define-library (srfi 101)
|
|
(import (scheme base)
|
|
(scheme case-lambda)
|
|
(srfi 1)
|
|
(srfi 125)
|
|
(rename (srfi 151)
|
|
(arithmetic-shift bitwise-arithmetic-shift)))
|
|
(export (rename ra:quote quote)
|
|
(rename ra:pair? pair?)
|
|
(rename ra:cons cons)
|
|
(rename ra:car car)
|
|
(rename ra:cdr cdr)
|
|
(rename ra:caar caar)
|
|
(rename ra:cadr cadr)
|
|
(rename ra:cddr cddr)
|
|
(rename ra:cdar cdar)
|
|
(rename ra:caaar caaar)
|
|
(rename ra:caadr caadr)
|
|
(rename ra:caddr caddr)
|
|
(rename ra:cadar cadar)
|
|
(rename ra:cdaar cdaar)
|
|
(rename ra:cdadr cdadr)
|
|
(rename ra:cdddr cdddr)
|
|
(rename ra:cddar cddar)
|
|
(rename ra:caaaar caaaar)
|
|
(rename ra:caaadr caaadr)
|
|
(rename ra:caaddr caaddr)
|
|
(rename ra:caadar caadar)
|
|
(rename ra:cadaar cadaar)
|
|
(rename ra:cadadr cadadr)
|
|
(rename ra:cadddr cadddr)
|
|
(rename ra:caddar caddar)
|
|
(rename ra:cdaaar cdaaar)
|
|
(rename ra:cdaadr cdaadr)
|
|
(rename ra:cdaddr cdaddr)
|
|
(rename ra:cdadar cdadar)
|
|
(rename ra:cddaar cddaar)
|
|
(rename ra:cddadr cddadr)
|
|
(rename ra:cddddr cddddr)
|
|
(rename ra:cdddar cdddar)
|
|
(rename ra:null? null?)
|
|
(rename ra:list? list?)
|
|
(rename ra:list list)
|
|
(rename ra:make-list make-list)
|
|
(rename ra:length length)
|
|
(rename ra:length<=? length<=?)
|
|
(rename ra:append append)
|
|
(rename ra:reverse reverse)
|
|
(rename ra:list-tail list-tail)
|
|
(rename ra:list-ref list-ref)
|
|
(rename ra:list-set list-set)
|
|
(rename ra:list-ref/update list-ref/update)
|
|
(rename ra:map map)
|
|
(rename ra:for-each for-each)
|
|
(rename ra:random-access-list->linear-access-list
|
|
random-access-list->linear-access-list)
|
|
(rename ra:linear-access-list->random-access-list
|
|
linear-access-list->random-access-list))
|
|
(include "101.scm"))
|