Move each Scheme library into its own file

Author: Aethaeryn

Diff for: scheme/base.sld

@@ -0,0 +1,42 @@
+;;;; -*- mode: scheme; -*-
+
+(define-library (scheme base)
+  (import (airship r7rs))
+  (export * + - ... / < <= = => > >= _ abs and append apply assoc assq assv
+          begin binary-port? boolean=? boolean? bytevector bytevector-append
+          bytevector-copy bytevector-copy! bytevector-length bytevector-u8-ref
+          bytevector-u8-set! bytevector? caar cadr
+          call-with-current-continuation call-with-port call-with-values call/cc
+          car case cdar cddr cdr ceiling char->integer char-ready? char<=?
+          char<? char=? char>=? char>? char? close-input-port close-output-port
+          close-port complex? cond cond-expand cons current-error-port
+          current-input-port current-output-port define define-record-type
+          define-syntax define-values denominator do dynamic-wind else
+          eof-object eof-object? eq? equal? eqv? error error-object-irritants
+          error-object-message error-object? even? exact exact-integer-sqrt
+          exact-integer? exact? expt features file-error? floor floor-quotient
+          floor-remainder floor/ flush-output-port for-each gcd
+          get-output-bytevector get-output-string guard if include include-ci
+          inexact inexact? input-port-open? input-port? integer->char integer?
+          lambda lcm length let let* let*-values let-syntax let-values
+          letrec letrec* letrec-syntax list list->string list->vector list-copy
+          list-ref list-set! list-tail list? make-bytevector make-list
+          make-parameter make-string make-vector map max member memq memv min
+          modulo negative? newline not null? number->string number? numerator
+          odd? open-input-bytevector open-input-string open-output-bytevector
+          open-output-string or output-port-open? output-port? pair?
+          parameterize peek-char peek-u8 port? positive? procedure? quasiquote
+          quote quotient raise raise-continuable rational? rationalize
+          read-bytevector read-bytevector! read-char read-error? read-line
+          read-string read-u8 real? remainder reverse round set! set-car!
+          set-cdr! square string string->list string->number string->symbol
+          string->utf8 string->vector string-append string-copy string-copy!
+          string-fill! string-for-each string-length string-map string-ref
+          string-set! string<=? string<? string=? string>=? string>? string?
+          substring symbol->string symbol=? symbol? syntax-error syntax-rules
+          textual-port? truncate truncate-quotient truncate-remainder truncate/
+          u8-ready? unless unquote unquote-splicing utf8->string values vector
+          vector->list vector->string vector-append vector-copy vector-copy!
+          vector-fill! vector-for-each vector-length vector-map vector-ref
+          vector-set! vector? when with-exception-handler write-bytevector
+          write-char write-string write-u8 zero?))

Diff for: scheme/case-lambda.sld

@@ -0,0 +1,5 @@
+;;;; -*- mode: scheme; -*-
+
+(define-library (scheme case-lambda)
+  (import (airship r7rs))
+  (export case-lambda))

Diff for: scheme/char.sld

@@ -0,0 +1,9 @@
+;;;; -*- mode: scheme; -*-
+
+(define-library (scheme char)
+  (import (airship r7rs))
+  (export char-alphabetic? char-ci<=? char-ci<? char-ci=? char-ci>=? char-ci>?
+          char-downcase char-foldcase char-lower-case? char-numeric? char-upcase
+          char-upper-case? char-whitespace? digit-value string-ci<=? string-ci<?
+          string-ci=? string-ci>=? string-ci>? string-downcase string-foldcase
+          string-upcase))

Diff for: scheme/complex.sld

@@ -0,0 +1,5 @@
+;;;; -*- mode: scheme; -*-
+
+(define-library (scheme complex)
+  (import (airship r7rs))
+  (export angle imag-part magnitude make-polar make-rectangular real-part))

Diff for: scheme/cxr.sld

@@ -0,0 +1,7 @@
+;;;; -*- mode: scheme; -*-
+
+(define-library (scheme cxr)
+  (import (airship r7rs))
+  (export caaaar caaadr caaar caadar caaddr caadr cadaar cadadr cadar caddar
+          cadddr caddr cdaaar cdaadr cdaar cdadar cdaddr cdadr cddaar cddadr
+          cddar cdddar cddddr cdddr))

Diff for: scheme/eval.sld

@@ -0,0 +1,5 @@
+;;;; -*- mode: scheme; -*-
+
+(define-library (scheme eval)
+  (import (airship r7rs))
+  (export environment eval))

Diff for: scheme/file.sld

@@ -0,0 +1,7 @@
+;;;; -*- mode: scheme; -*-
+
+(define-library (scheme file)
+  (import (airship r7rs))
+  (export call-with-input-file call-with-output-file delete-file file-exists?
+          open-binary-input-file open-binary-output-file open-input-file
+          open-output-file with-input-from-file with-output-to-file))

Diff for: scheme/inexact.sld

@@ -0,0 +1,5 @@
+;;;; -*- mode: scheme; -*-
+
+(define-library (scheme inexact)
+  (import (airship r7rs))
+  (export (acos asin atan cos exp finite? infinite? log nan? sin sqrt tan)))

Diff for: scheme/lazy.sld

@@ -0,0 +1,5 @@
+;;;; -*- mode: scheme; -*-
+
+(define-library (scheme lazy)
+  (import (airship r7rs))
+  (export delay delay-force force make-promise promise?))

Diff for: scheme/load.sld

@@ -0,0 +1,5 @@
+;;;; -*- mode: scheme; -*-
+
+(define-library (scheme load)
+  (import (airship r7rs))
+  (export load))

Diff for: scheme/process-context.sld

@@ -0,0 +1,6 @@
+;;;; -*- mode: scheme; -*-
+
+(define-library (scheme process-context)
+  (import (airship r7rs))
+  (export command-line emergency-exit exit get-environment-variable
+          get-environment-variables))

Diff for: scheme/r5rs.sld

@@ -0,0 +1,35 @@
+;;;; -*- mode: scheme; -*-
+
+(define-library (scheme r5rs)
+  (import (airship r7rs))
+  (export * + - / < <= = > >= abs acos and angle append apply asin assoc assq
+          assv atan begin boolean? caaaar caaadr caaar caadar caaddr caadr caar
+          cadaar cadadr cadar caddar cadddr caddr cadr
+          call-with-current-continuation call-with-input-file
+          call-with-output-file call-with-values car case cdaaar cdaadr cdaar
+          cdadar cdaddr cdadr cdar cddaar cddadr cddar cdddar cddddr cdddr cddr
+          cdr ceiling char->integer char-alphabetic? char-ci<=? char-ci<?
+          char-ci=? char-ci>=? char-ci>? char-downcase char-lower-case?
+          char-numeric? char-ready? char-upcase char-upper-case?
+          char-whitespace? char<=? char<? char=? char>=? char>? char?
+          close-input-port close-output-port complex? cond cons cos
+          current-input-port current-output-port define define-syntax delay
+          denominator display do dynamic-wind eof-object? eq? equal? eqv? eval
+          even? exact->inexact exact? exp expt floor for-each force gcd if
+          imag-part inexact->exact inexact? input-port? integer->char integer?
+          interaction-environment lambda lcm length let let* let-syntax letrec
+          letrec-syntax list list->string list->vector list-ref list-tail list?
+          load log magnitude make-polar make-rectangular make-string make-vector
+          map max member memq memv min modulo negative? newline not
+          null-environment null? number->string number? numerator odd?
+          open-input-file open-output-file or output-port? pair? peek-char
+          positive? procedure? quasiquote quote quotient rational? rationalize
+          read read-char real-part real? remainder reverse round
+          scheme-report-environment set! set-car! set-cdr! sin sqrt string
+          string->list string->number string->symbol string-append string-ci<=?
+          string-ci<? string-ci=? string-ci>=? string-ci>? string-copy
+          string-fill! string-length string-ref string-set! string<=? string<?
+          string=? string>=? string>? string? substring symbol->string symbol?
+          tan truncate values vector vector->list vector-fill! vector-length
+          vector-ref vector-set! vector? with-input-from-file
+          with-output-to-file write write-char zero?))

Diff for: scheme/read.sld

@@ -0,0 +1,5 @@
+;;;; -*- mode: scheme; -*-
+
+(define-library (scheme read)
+  (import (airship r7rs))
+  (export read))

Diff for: scheme/repl.sld

@@ -0,0 +1,5 @@
+;;;; -*- mode: scheme; -*-
+
+(define-library (scheme repl)
+  (import (airship r7rs))
+  (export interaction-environment))

Diff for: scheme/time.sld

@@ -0,0 +1,5 @@
+;;;; -*- mode: scheme; -*-
+
+(define-library (scheme time)
+  (import (airship r7rs))
+  (export current-jiffy current-second jiffies-per-second))

Diff for: scheme/write.sld

@@ -0,0 +1,5 @@
+;;;; -*- mode: scheme; -*-
+
+(define-library (scheme write)
+  (import (airship r7rs))
+  (export display write write-shared write-simple))