<commit_before>;;; -*- Gerbil -*-
;;; (C) vyzo at hackzen.org
;;; R7RS (scheme base) library
package: scheme

(import :gerbil/gambit/exceptions
        :gerbil/gambit/ports
        :std/srfi/9
        :std/text/utf8
        :scheme/base-impl)

(export
  < <= = => > >= - / ... * +
  _ (phi: +1 _)
  abs
  and
  append
  apply
  assoc
  assq
  assv
  begin
  binary-port?
  boolean=?
  boolean?
  (rename: u8vector bytevector)
  (rename: u8vector? bytevector?)
  (rename: u8vector-append bytevector-append)
  bytevector-copy
  bytevector-copy!
  (rename: u8vector-length bytevector-length)
  (rename: u8vector-ref bytevector-u8-ref)
  (rename: u8vector-set! bytevector-u8-set!)
  caar
  cadr
  call/cc
  call-with-current-continuation
  call-with-port
  call-with-values
  car
  case
  cdar
  cddr
  cdr
  ceiling
  char<=?
  char<?
  char=?
  char>=?
  char>?
  char?
  char->integer
  char-ready?
  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?
  (rename: r7rs-equal? equal?)
  eqv?
  error
  (rename: error-exception? error-object?)
  (rename: error-exception-parameters error-object-irritants)
  (rename: error-exception-message error-object-message)
  even?
  (rename: inexact->exact exact)
  exact?
  exact-integer?
  exact-integer-sqrt
  expt
  features
  file-error?
  floor
  floor/<commit_msg>scheme/base: export both equal? and r7rs-equal?<commit_after>;;; -*- Gerbil -*-
;;; (C) vyzo at hackzen.org
;;; R7RS (scheme base) library
package: scheme

(import :gerbil/gambit/exceptions
        :gerbil/gambit/ports
        :std/srfi/9
        :std/text/utf8
        :scheme/base-impl)

(export
  < <= = => > >= - / ... * +
  _ (phi: +1 _)
  abs
  and
  append
  apply
  assoc
  assq
  assv
  begin
  binary-port?
  boolean=?
  boolean?
  (rename: u8vector bytevector)
  (rename: u8vector? bytevector?)
  (rename: u8vector-append bytevector-append)
  bytevector-copy
  bytevector-copy!
  (rename: u8vector-length bytevector-length)
  (rename: u8vector-ref bytevector-u8-ref)
  (rename: u8vector-set! bytevector-u8-set!)
  caar
  cadr
  call/cc
  call-with-current-continuation
  call-with-port
  call-with-values
  car
  case
  cdar
  cddr
  cdr
  ceiling
  char<=?
  char<?
  char=?
  char>=?
  char>?
  char?
  char->integer
  char-ready?
  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?
  r7rs-equal?
  eqv?
  error
  (rename: error-exception? error-object?)
  (rename: error-exception-parameters error-object-irritants)
  (rename: error-exception-message error-object-message)
  even?
  (rename: inexact->exact exact)
  exact?
  exact-integer?
  exact-integer-sqrt
  expt
  features
  file-error?
  floor
  floor/
{'fraction_non_alphanumeric': 0.12323491655969192, 'fraction_numerical': 0.008664955070603338, 'mean_word_length': 2.8151774785801713, 'pattern_counts': {'":': 0, '<': 11, '<?xml version=': 0, '>': 17, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1170110', 'n_tokens_mistral': 1198, 'n_tokens_neox': 1220, 'n_words': 241}