;; -*- mode: scheme; coding: utf-8 -*-
;; SPDX-License-Identifier: CC0-1.0
#!r6rs

;; Guile-specific version of (scheme base). Guile insists that
;; literals in syntax must be unbound, otherwise they do not compare
;; equal. A literal magically becomes bound if exported.

(library (scheme base)
  (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 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?)
  (import
    (akku-r7rs base)))