chicanery.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87

;;; chicanery --- subtly breaking scheme expectations

(import (r7rs))

(define-library chicanery
  ;; All the scheme stuff in one place
  (import (scheme base))
  (import (scheme case-lambda))
  (import (scheme char))
  (import (scheme complex))
  (import (scheme cxr))
  (import (scheme eval))
  (import (scheme file))
  (import (scheme inexact))
  (import (scheme lazy))
  (import (scheme load))
  (import (scheme process-context))
  (import (scheme read))
  (import (scheme repl))
  (import (scheme time))
  (import (scheme write))
  (import utf8)
  (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? car cdr caar cadr cdar cddr
          call-with-current-continuation call/cc call-with-port call-with-values
          case ceiling char-ready? char->integer integer->char char=? char<?
          char>? char<=? char>=? char? close-input-port close-output-port
          close-port complex? cond cond-expand cons current-input-port
          current-output-port current-error-port define define-record-type
          define-syntax define-values denominator numerator do dynamic-wind
          eof-object eof-object? eq? eqv? equal? error error-object-irritants
          error-object-message error-object? even? odd? exact inexact
          exact-integer-sqrt exact-integer? exact? inexact? exp expt features
          file-error? floor floor/ floor-quotient floor-remainder
          flush-output-port #;for-each gcd lcm get-output-bytevector
          get-output-string guard if import import-for-syntax include include-ci
          input-port-open? output-port-open? input-port? output-port? integer?
          lambda length let let* letrec letrec* let-values let*-values let-syntax
          letrec-syntax list list-copy list-ref list-set! list-tail list?
          list->vector make-bytevector make-list make-parameter make-string
          make-vector #;map max min member memq memv modulo remainder negative?
          positive? newline not null? number->string string->number number?
          open-input-bytevector open-output-bytevector open-input-string
          open-output-string or pair? parameterize peek-char peek-u8 port?
          procedure? quasiquote quote quotient remainder raise raise-continuable
          rational? rationalize read-bytevector read-bytevector! read-char
          read-error? read-line read-string read-u8 real? reverse round set!
          set-car! set-cdr! square string string->list list->string string->utf8
          utf8->string string->symbol symbol->string 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=? symbol?
          syntax-error syntax-rules textual-port? truncate truncate/
          truncate-quotient truncate-remainder u8-ready? unless #;unquote
          #;unquote-splicing values vector vector-append vector-copy vector-copy!
          vector-fill! vector-for-each vector-length vector-map vector-ref
          vector-set! vector->list vector->string vector? when
          with-exception-handler write-bytevector write-char write-string
          write-u8 zero?)
  (export case-lambda)
  (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)
  (export angle imag-part magnitude make-polar make-rectangular real-part)
  (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)
  (export environment eval)
  (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)
  (export acos asin atan cos exp finite? infinite? log nan? sin sqrt tan)
  (export delay delay-force force make-promise promise?)
  (export load)
  (export command-line emergency-exit exit get-environment-variable
          get-environment-variables)
  (export read)
  (export interaction-environment)
  (export current-jiffy current-second jiffies-per-second)
  (export display write write-shared write-simple)

  (include "chicanery.extras.scm"))