Import the portable srfis

Author: arcfide

%3a0.sls

@@ -0,0 +1,7 @@
+#!r6rs
+;; Automatically generated by private/make-aliased-libraries.sps
+(library (srfi :0)
+  (export
+    cond-expand)
+  (import (srfi :0 cond-expand))
+)

%3a0/cond-expand.sls

@@ -0,0 +1,48 @@
+#!r6rs
+;; Copyright 2009 Derick Eddington.  My MIT-style license is in the file named
+;; LICENSE from the original collection this file is distributed with.
+
+(library (srfi :0 cond-expand)
+  (export
+    cond-expand)
+  (import
+    (rnrs)
+    (for (only (srfi private registry) expand-time-features) expand))
+
+  (define-syntax cond-expand
+    (lambda (stx)
+      (syntax-case stx (and or not else)
+        ((_)
+         (syntax-violation #F "unfulfilled cond-expand" stx))
+        ((_ (else body ...))
+         #'(begin body ...))
+        ((_ ((and) body ...) more-clauses ...)
+         #'(begin body ...))
+        ((_ ((and req1 req2 ...) body ...) more-clauses ...)
+         #'(cond-expand
+            (req1
+             (cond-expand
+              ((and req2 ...) body ...)
+              more-clauses ...))
+            more-clauses ...))
+        ((_ ((or) body ...) more-clauses ...)
+         #'(cond-expand more-clauses ...))
+        ((_ ((or req1 req2 ...) body ...) more-clauses ...)
+         #'(cond-expand
+            (req1
+             (begin body ...))
+            (else
+             (cond-expand
+              ((or req2 ...) body ...)
+              more-clauses ...))))
+        ((_ ((not req) body ...) more-clauses ...)
+         #'(cond-expand
+            (req
+             (cond-expand more-clauses ...))
+            (else body ...)))
+        ((_ (feature-id body ...) more-clauses ...)
+         (if (member (syntax->datum #'feature-id) expand-time-features)
+           #'(begin body ...)
+           #'(cond-expand more-clauses ...))))))
+
+)

%3a1.sls

@@ -0,0 +1,155 @@
+#!r6rs
+;; Automatically generated by private/make-aliased-libraries.sps
+(library (srfi :1)
+  (export
+    alist-cons
+    alist-copy
+    alist-delete
+    alist-delete!
+    any
+    append
+    append!
+    append-map
+    append-map!
+    append-reverse
+    append-reverse!
+    assoc
+    assq
+    assv
+    break
+    break!
+    caaaar
+    caaadr
+    caaar
+    caadar
+    caaddr
+    caadr
+    caar
+    cadaar
+    cadadr
+    cadar
+    caddar
+    cadddr
+    caddr
+    cadr
+    car
+    car+cdr
+    cdaaar
+    cdaadr
+    cdaar
+    cdadar
+    cdaddr
+    cdadr
+    cdar
+    cddaar
+    cddadr
+    cddar
+    cdddar
+    cddddr
+    cdddr
+    cddr
+    cdr
+    circular-list
+    circular-list?
+    concatenate
+    concatenate!
+    cons
+    cons*
+    count
+    delete
+    delete!
+    delete-duplicates
+    delete-duplicates!
+    dotted-list?
+    drop
+    drop-right
+    drop-right!
+    drop-while
+    eighth
+    every
+    fifth
+    filter
+    filter!
+    filter-map
+    find
+    find-tail
+    first
+    fold
+    fold-right
+    for-each
+    fourth
+    iota
+    last
+    last-pair
+    length
+    length+
+    list
+    list-copy
+    list-index
+    list-ref
+    list-tabulate
+    list=
+    lset-adjoin
+    lset-diff+intersection
+    lset-diff+intersection!
+    lset-difference
+    lset-difference!
+    lset-intersection
+    lset-intersection!
+    lset-union
+    lset-union!
+    lset-xor
+    lset-xor!
+    lset<=
+    lset=
+    make-list
+    map
+    map!
+    map-in-order
+    member
+    memq
+    memv
+    ninth
+    not-pair?
+    null-list?
+    null?
+    pair-fold
+    pair-fold-right
+    pair-for-each
+    pair?
+    partition
+    partition!
+    proper-list?
+    reduce
+    reduce-right
+    remove
+    remove!
+    reverse
+    reverse!
+    second
+    set-car!
+    set-cdr!
+    seventh
+    sixth
+    span
+    span!
+    split-at
+    split-at!
+    take
+    take!
+    take-right
+    take-while
+    take-while!
+    tenth
+    third
+    unfold
+    unfold-right
+    unzip1
+    unzip2
+    unzip3
+    unzip4
+    unzip5
+    xcons
+    zip)
+  (import (srfi :1 lists))
+)

%3a1/lists.sls

@@ -0,0 +1,76 @@
+#!r6rs
+;; Copyright 2010 Derick Eddington.  My MIT-style license is in the file named
+;; LICENSE from the original collection this file is distributed with.
+
+(library (srfi :1 lists)
+  (export
+    ;;; Exported:
+    xcons #;tree-copy make-list list-tabulate list-copy
+    proper-list? circular-list? dotted-list? not-pair? null-list? list=
+    circular-list length+
+    iota
+    first second third fourth fifth sixth seventh eighth ninth tenth
+    car+cdr
+    take       drop
+    take-right drop-right
+    take!      drop-right!
+    split-at   split-at!
+    last last-pair
+    zip unzip1 unzip2 unzip3 unzip4 unzip5
+    count
+    append! append-reverse append-reverse! concatenate concatenate!
+    unfold       fold       pair-fold       reduce
+    unfold-right            pair-fold-right reduce-right
+    append-map append-map! map! pair-for-each filter-map map-in-order
+    filter! partition! remove!
+    find-tail any every list-index
+    take-while drop-while take-while!
+    span break span! break!
+    delete delete!
+    alist-cons alist-copy
+    delete-duplicates delete-duplicates!
+    alist-delete alist-delete!
+    reverse!
+    lset<= lset= lset-adjoin
+    lset-union  lset-intersection  lset-difference  lset-xor
+    lset-diff+intersection
+    lset-union! lset-intersection! lset-difference! lset-xor!
+    lset-diff+intersection!
+    ;; re-exported:
+    append assq assv caaaar caaadr caaar caadar caaddr
+    caadr caar cadaar cadadr cadar caddar cadddr caddr cadr
+    car cdaaar cdaadr cdaar cdadar cdaddr cdadr cdar cddaar
+    cddadr cddar cdddar cddddr cdddr cddr cdr cons cons*
+    length list list-ref memq memv null? pair?
+    reverse set-car! set-cdr!
+    ;; different than R6RS:
+    assoc filter find fold-right for-each map member partition remove)
+  (import
+    (except (rnrs)
+            assoc filter find fold-right for-each map member partition remove)
+    (rnrs mutable-pairs)
+    (srfi :8 receive)
+    (srfi :23 error tricks)
+    (for (srfi private vanish) expand)
+    (srfi private check-arg)
+    (srfi private include))
+
+  (define-syntax :optional
+    (syntax-rules ()
+      ((_ args default)
+       (let ((a args))
+         (if (pair? a) (car a) default)))))
+
+  (define-syntax let-optionals
+    (syntax-rules ()
+      ((_ _ () . body)
+       (let () . body))
+      ((_ args ((id default) . more) . body)
+       (let ((a args))
+         (let ((id (:optional a default)))
+           (let-optionals (if (pair? a) (cdr a) '()) more . body))))))
+
+  (let-syntax ((define (vanish-define define (cons*))))
+    (SRFI-23-error->R6RS "(library (srfi :1 lists))"
+     (include/resolve ("srfi" "%3a1") "srfi-1-reference.scm")))
+)