about summary refs log tree commit diff stats
path: root/chicanery.scm
diff options
context:
space:
mode:
Diffstat (limited to 'chicanery.scm')
-rw-r--r--chicanery.scm94
1 files changed, 25 insertions, 69 deletions
diff --git a/chicanery.scm b/chicanery.scm index 0fc71e4..4dba4ca 100644 --- a/chicanery.scm +++ b/chicanery.scm
@@ -1,9 +1,9 @@
1;;; chicanery --- subtly breaking scheme expectations 1(module chicanery ()
2 (import scheme
3 (chicken module)
4 (chicken platform))
5 (import r7rs utf8)
2 6
3(import (r7rs))
4
5(define-library chicanery
6 ;; All the scheme stuff in one place
7 (import (scheme base)) 7 (import (scheme base))
8 (import (scheme case-lambda)) 8 (import (scheme case-lambda))
9 (import (scheme char)) 9 (import (scheme char))
@@ -19,69 +19,25 @@
19 (import (scheme repl)) 19 (import (scheme repl))
20 (import (scheme time)) 20 (import (scheme time))
21 (import (scheme write)) 21 (import (scheme write))
22 (import utf8)
23 (export * + - / <= < >= = > abs and #;append apply assoc assq assv begin
24 binary-port? boolean? boolean=? bytevector bytevector-append
25 bytevector-copy bytevector-copy! bytevector-length bytevector-u8-ref
26 bytevector-u8-set! bytevector? car cdr caar cadr cdar cddr
27 call-with-current-continuation call/cc call-with-port call-with-values
28 case ceiling char-ready? char->integer integer->char char=? char<?
29 char>? char<=? char>=? char? close-input-port close-output-port
30 close-port complex? cond cond-expand cons current-input-port
31 current-output-port current-error-port define define-record-type
32 define-syntax define-values denominator numerator do dynamic-wind
33 eof-object eof-object? eq? eqv? equal? error error-object-irritants
34 error-object-message error-object? even? odd? exact inexact
35 exact-integer-sqrt exact-integer? exact? inexact? exp expt features
36 file-error? floor floor/ floor-quotient floor-remainder
37 flush-output-port #;for-each gcd lcm get-output-bytevector
38 get-output-string guard if import import-for-syntax include include-ci
39 input-port-open? output-port-open? input-port? output-port? integer?
40 lambda length let let* letrec letrec* let-values let*-values let-syntax
41 letrec-syntax list list-copy list-ref list-set! list-tail list?
42 list->vector make-bytevector make-list make-parameter make-string
43 make-vector #;map max min member memq memv modulo remainder negative?
44 positive? newline not null? number->string string->number number?
45 open-input-bytevector open-output-bytevector open-input-string
46 open-output-string or pair? parameterize peek-char peek-u8 port?
47 procedure? quasiquote quote quotient remainder raise raise-continuable
48 rational? rationalize read-bytevector read-bytevector! read-char
49 read-error? read-line read-string read-u8 real? reverse round set!
50 set-car! set-cdr! square string string->list list->string string->utf8
51 utf8->string string->symbol symbol->string string->vector
52 string-append string-copy string-copy! string-fill! string-for-each
53 string-length string-map string-ref string-set! string=? string<?
54 string>? string<=? string>=? string? substring symbol=? symbol?
55 syntax-error syntax-rules textual-port? truncate truncate/
56 truncate-quotient truncate-remainder u8-ready? unless #;unquote
57 #;unquote-splicing values vector vector-append vector-copy vector-copy!
58 vector-fill! vector-for-each vector-length vector-map vector-ref
59 vector-set! vector->list vector->string vector? when
60 with-exception-handler write-bytevector write-char write-string
61 write-u8 zero?)
62 (export case-lambda)
63 (export char-alphabetic? char-ci<=? char-ci<? char-ci=? char-ci>=?
64 char-ci>? char-downcase char-foldcase char-lower-case? char-numeric?
65 char-upcase char-upper-case? char-whitespace? digit-value string-ci<=?
66 string-ci<? string-ci=? string-ci>=? string-ci>? string-downcase
67 string-foldcase string-upcase)
68 (export angle imag-part magnitude make-polar make-rectangular real-part)
69 (export caaaar caaadr caaar caadar caaddr caadr cadaar cadadr cadar caddar
70 cadddr caddr cdaaar cdaadr cdaar cdadar cdaddr cdadr cddaar cddadr
71 cddar cdddar cddddr cdddr)
72 (export environment eval)
73 (export call-with-input-file call-with-output-file delete-file file-exists?
74 open-binary-input-file open-binary-output-file open-input-file
75 open-output-file with-input-from-file with-output-to-file)
76 (export acos asin atan cos exp finite? infinite? log nan? sin sqrt tan)
77 (export delay delay-force force make-promise promise?)
78 (export load)
79 (export command-line emergency-exit exit get-environment-variable
80 get-environment-variables)
81 (export read)
82 (export interaction-environment)
83 (export current-jiffy current-second jiffies-per-second)
84 (export display write write-shared write-simple)
85 22
86 (include "chicanery.extras.scm")) 23 (reexport r7rs)
24 (reexport (scheme base))
25 (reexport (scheme case-lambda))
26 (reexport (scheme char))
27 (reexport (scheme complex))
28 (reexport (scheme cxr))
29 (reexport (scheme eval))
30 (reexport (scheme file))
31 (reexport (scheme inexact))
32 (reexport (scheme lazy))
33 (reexport (scheme load))
34 (reexport (scheme process-context))
35 (reexport (scheme read))
36 (reexport (scheme repl))
37 (reexport (scheme time))
38 (reexport (scheme write))
39 (reexport utf8)
40
41 (include "extras.scm")
87 42
43 (register-feature! #:chicanery))