~ chicken-r7rs (master) efe7baa235db2e90b293ffeb8e069bb1b56110f6
commit efe7baa235db2e90b293ffeb8e069bb1b56110f6
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Wed May 30 10:27:01 2018 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Wed May 30 10:27:01 2018 +0200
dropped .setup file, compile-time modules use dynamic linkage
diff --git a/r7rs.egg b/r7rs.egg
index 77813b4..4f228d3 100644
--- a/r7rs.egg
+++ b/r7rs.egg
@@ -8,9 +8,10 @@
(extension r7rs
(component-dependencies r7rs-compile-time)
(source-dependencies "synrules.scm" "scheme.base-interface.scm"))
- (extension r7rs-support)
- (extension r7rs-library)
+ (extension r7rs-support (linkage dynamic))
+ (extension r7rs-library (linkage dynamic))
(extension r7rs-compile-time
+ (linkage dynamic)
(source "r7rs-compile-time-module.scm")
(source-dependencies "r7rs-compile-time.scm")
(component-dependencies r7rs-library r7rs-support))
diff --git a/r7rs.setup b/r7rs.setup
deleted file mode 100644
index c62b701..0000000
--- a/r7rs.setup
+++ /dev/null
@@ -1,54 +0,0 @@
-;; -*- Scheme -*-
-
-
-(use make srfi-1)
-
-(define scheme-modules
- '("case-lambda" "char" "complex" "cxr" "eval" "file" "inexact" "lazy" "load" "process-context" "r5rs" "read" "repl" "time" "write"))
-
-(make (("r7rs-support.so" ("r7rs-support.scm")
- (compile -s -O3 -d1 r7rs-support.scm -J)
- (compile -s -O3 -d0 r7rs-support.import.scm))
- ("r7rs-library.so" ("r7rs-library.scm")
- (compile -s -O3 -d1 r7rs-library.scm -J)
- (compile -s -O3 -d0 r7rs-library.import.scm))
- ("r7rs-compile-time.so"
- ("r7rs-compile-time.scm" "r7rs-compile-time-module.scm" "r7rs-library.so" "r7rs-support.so")
- (compile -s -O3 -d1 r7rs-compile-time-module.scm -J -o r7rs-compile-time.so)
- (compile -s -O3 -d0 r7rs-compile-time.import.scm))
- ("scheme.base.so"
- ("scheme.base.scm" "scheme.base-interface.scm" "r7rs-support.so")
- (compile -s -O3 -d1 scheme.base.scm -J -emit-type-file scheme.base.types)
- (compile -s -O3 -d0 scheme.base.import.scm)))
- '("r7rs-compile-time.so" "scheme.base.so"))
-
-(for-each
- (lambda (m)
- (let* ((mname (string-append "scheme." m))
- (so (string-append mname ".so"))
- (scm (string-append mname ".scm")))
- (make/proc (list (list so (list scm)
- (lambda ()
- (compile -s -O3 -d1 ,scm -J -emit-type-file ,(string-append mname ".types"))
- (compile -s -O3 -d0 ,(string-append mname ".import.scm")))))
- (list so))))
- scheme-modules)
-
-(make (("r7rs.so" ("r7rs.scm" "synrules.scm")
- (compile -s -O3 -d0 r7rs.scm -J)
- (compile -s -O3 -d0 r7rs.import.scm))))
-
-(install-extension
- 'r7rs
- `("r7rs.so" "r7rs.import.so"
- "r7rs-support.so" "r7rs-support.import.so"
- "r7rs-library.so" "r7rs-library.import.so"
- "r7rs-compile-time.so" "r7rs-compile-time.import.so"
- "scheme.base.so" "scheme.base.import.so" "scheme.base.types"
- ,@(append-map
- (lambda (mod)
- (list (string-append "scheme." mod ".so")
- (string-append "scheme." mod ".import.so")
- (string-append "scheme." mod ".types")))
- scheme-modules))
- '((version "0.0.6")))
Trap