~ chicken-r7rs (master) 39cf8ec93dc4b62d8cdc54ea26a4ede1c3725075
commit 39cf8ec93dc4b62d8cdc54ea26a4ede1c3725075
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jul 3 14:45:08 2013 +0000
Commit: Evan Hanson <evhan@foldling.org>
CommitDate: Wed Jul 3 14:45:08 2013 +0000
Added a few minor modules
diff --git a/r7rs.setup b/r7rs.setup
index 104477e..d5101dc 100644
--- a/r7rs.setup
+++ b/r7rs.setup
@@ -4,7 +4,7 @@
(use make srfi-1)
(define scheme-modules
- '("process-context" "eval")) ;XXX
+ '("process-context" "eval" "cxr" "complex" "inexact" "load")) ;XXX
(make (("r7rs-compile-time.so" ("r7rs-compile-time.scm" "r7rs-compile-time-module.scm")
(compile -s -O3 -d1 r7rs-compile-time-module.scm -J -o r7rs-compile-time.so)
diff --git a/scheme.complex.scm b/scheme.complex.scm
new file mode 100644
index 0000000..348db94
--- /dev/null
+++ b/scheme.complex.scm
@@ -0,0 +1,8 @@
+(module scheme.complex (angle
+ magnitude
+ make-rectangular
+ make-polar
+ imag-part
+ real-part)
+ (import numbers)
+)
diff --git a/scheme.cxr.scm b/scheme.cxr.scm
new file mode 100644
index 0000000..b3463aa
--- /dev/null
+++ b/scheme.cxr.scm
@@ -0,0 +1,26 @@
+(module scheme.cxr (caaar
+ caadr
+ cadar
+ caddr
+ cdaar
+ cdadr
+ cddar
+ cdddr
+ caaaar
+ caaadr
+ caadar
+ caaddr
+ cadaar
+ cadadr
+ caddar
+ cadddr
+ cdaaar
+ cdaadr
+ cdadar
+ cdaddr
+ cddaar
+ cddadr
+ cdddar
+ cddddr)
+ (import scheme)
+)
diff --git a/scheme.inexact.scm b/scheme.inexact.scm
new file mode 100644
index 0000000..4d9d687
--- /dev/null
+++ b/scheme.inexact.scm
@@ -0,0 +1,13 @@
+(module scheme.inexact (acos
+ asin
+ atan
+ exp
+ infinite?
+ sin
+ cos
+ tan
+ finite?
+ log
+ sqrt
+ nan?)
+ (import numbers))
diff --git a/scheme.load.scm b/scheme.load.scm
new file mode 100644
index 0000000..c15a856
--- /dev/null
+++ b/scheme.load.scm
@@ -0,0 +1,3 @@
+(module scheme.load (load)
+
+ (import scheme))
Trap