(module csu660 mzscheme
(require (lib "list.ss") (lib "etc.ss") (lib "trace.ss")
"datatype.ss" "utils.ss")
(provide
+ - * / < <= = > >= abs acos add1 and andmap angle append arithmetic-shift
asin assoc assq assv atan bitwise-and bitwise-ior bitwise-not bitwise-xor
boolean? caaaar caaadr caaar caadar caaddr caadr caar cadaar cadadr cadar
caddar cadddr caddr cadr car case cdaaar cdaadr cdaar cdadar cdaddr cdadr
cdar cddaar cddadr cddar cdddar cddddr cdddr cddr cdr ceiling complex? cond
cos define denominator eq? equal? eqv? even? exact->inexact exact? exp expt
floor format gcd imag-part inexact->exact inexact? integer? lcm length let
let* list list* list-ref list-tail log magnitude map max member memq memv
min modulo negative? not null null? number->string number? numerator odd? or
ormap pair? positive? procedure? quasiquote quote quotient random rational?
rationalize real-part real? remainder reverse round sin sqrt string
string->number string-append string-ci<=? string-ci<? string-ci=?
string-ci>=? string-ci>? string-length string-ref string<=? string<?
string=? string>=? string>? string? sub1 substring symbol? tan truncate
unquote unquote-splicing zero?
error
apply lambda letrec
display newline print printf write read-line
sleep time
begin begin0 for-each unless when
box box? set-box! unbox
make-vector list->vector vector? vector-ref
define-syntax syntax-rules
set!
first second third fourth fifth sixth seventh eighth rest cons? empty empty?
foldl foldr last-pair remove remq remv remove* remq* remv* memf assf filter
sort
true false boolean=? symbol=? identity compose build-list build-vector
trace untrace
(rename *if if)
(rename *cons cons) (rename *list? list?)
(rename cons cons*) match number: integer: symbol: string: boolean:
string->sexpr make-transformer test test-mode
any? list-of sexp-of box-of union-of intersection-of false? true?
))