-
Notifications
You must be signed in to change notification settings - Fork 5
/
Copy pathrnrs-base.sls
56 lines (53 loc) · 2.12 KB
/
rnrs-base.sls
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
(library (mpl rnrs-base)
(export define define-syntax
quote lambda if set! cond case and or
let let* letrec letrec* let-values let*-values
begin quasiquote unquote unquote-splicing
let-syntax letrec-syntax syntax-rules
identifier-syntax assert
else => ... _
eq?
eqv?
equal?
procedure?
number? complex? real? rational? integer?
real-valued? rational-valued? integer-valued?
exact? inexact?
inexact exact
= < > <= >=
zero? positive? negative? odd? even?
finite? infinite? nan?
max min + * - / abs
div-and-mod div mod div0-and-mod0 div0 mod0
gcd lcm numerator denominator
floor ceiling truncate round
rationalize
exp log sin cos tan asin acos atan
sqrt
exact-integer-sqrt
expt
make-rectangular make-polar real-part imag-part
magnitude angle
number->string string->number
not boolean? boolean=?
pair? cons car cdr
caar cadr cdar cddr caaar caadr cadar
caddr cdaar cdadr cddar cdddr caaaar caaadr
caadar caaddr cadaar cadadr caddar cadddr cdaaar
cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr
null? list? list length append reverse list-tail
list-ref map for-each
symbol? symbol->string string->symbol symbol=?
char? char->integer integer->char
char=? char<? char>? char<=? char>=?
string? make-string string string-length string-ref
string=? string<? string>? string<=? string>=?
substring string-append string->list list->string string-copy string-for-each
vector? make-vector vector vector-length vector-ref vector-set!
vector->list list->vector vector-fill!
vector-map vector-for-each
error assertion-violation
apply call-with-current-continuation call/cc
values call-with-values dynamic-wind)
(import (except (rnrs base) + - * / exp)
(mpl automatic-simplification)))