~ chicken-core (chicken-5) e1fbfa36c6f5bd421f391f7c6d0c7a699f0b15e8
commit e1fbfa36c6f5bd421f391f7c6d0c7a699f0b15e8
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Jul 27 00:28:32 2010 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Tue Jul 27 00:28:32 2010 +0200
added -no-import-library option
diff --git a/batch-driver.scm b/batch-driver.scm
index 415d7e56..61f16687 100644
--- a/batch-driver.scm
+++ b/batch-driver.scm
@@ -177,6 +177,7 @@
(when (and (memq 'emit-all-import-libraries options)
(not a-only))
(set! all-import-libraries #t))
+ (set! no-import-libraries (memq 'no-import-library options))
(when (memq 'lambda-lift options) (set! do-lambda-lifting #t))
(when (memq 'scrutinize options) (set! do-scrutinize #t))
(when (memq 't debugging-chicken) (##sys#start-timer))
diff --git a/c-platform.scm b/c-platform.scm
index 0b48f936..b98e8043 100644
--- a/c-platform.scm
+++ b/c-platform.scm
@@ -91,7 +91,7 @@
no-procedure-checks-for-toplevel-bindings
no-bound-checks no-procedure-checks-for-usual-bindings no-compiler-syntax
no-parentheses-synonyms no-symbol-escape r5rs-syntax emit-all-import-libraries
- setup-mode unboxing) )
+ setup-mode unboxing no-import-library) )
(define valid-compiler-options-with-argument
'(debug
diff --git a/compiler-namespace.scm b/compiler-namespace.scm
index 86280062..28acca81 100644
--- a/compiler-namespace.scm
+++ b/compiler-namespace.scm
@@ -192,7 +192,7 @@
load-type-database
local-definitions
location-pointer-map
- make-argument-list
+ make-argument-list
make-block-variable-literal
make-random-name
make-variable-list
@@ -203,6 +203,7 @@
no-argc-checks
no-bound-checks
no-global-procedure-checks
+ no-import-libraries
no-procedure-checks
node->sexpr
non-foldable-bindings
diff --git a/compiler.scm b/compiler.scm
index 26dad504..d514140c 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -328,6 +328,7 @@
(define profiled-procedures #f)
(define import-libraries '())
(define all-import-libraries #f)
+(define no-import-libraries #f)
(define standalone-executable #t)
(define local-definitions #f)
(define inline-locally #f)
@@ -831,6 +832,10 @@
(values
(reverse xs)
'((##core#undefined)))))
+ (no-import-libraries
+ (values
+ (reverse xs)
+ '((##core#undefined))))
(else
(values
(reverse xs)
diff --git a/csc.scm b/csc.scm
index 01a49c62..357660a2 100644
--- a/csc.scm
+++ b/csc.scm
@@ -137,7 +137,7 @@
-analyze-only -keep-shadowed-macros -inline-global -ignore-repository
-no-symbol-escape -no-parentheses-synonyms -r5rs-syntax
-no-argc-checks -no-bound-checks -no-procedure-checks -no-compiler-syntax
- -emit-all-import-libraries -setup-mode -unboxing -no-elevation
+ -emit-all-import-libraries -setup-mode -unboxing -no-elevation -no-import-library
-no-procedure-checks-for-usual-bindings
-no-procedure-checks-for-toplevel-bindings))
@@ -330,6 +330,7 @@ Usage: #{csc} FILENAME | OPTION ...
-j -emit-import-library MODULE write compile-time module information into
separate file
-J -emit-all-import-libraries emit import-libraries for all defined modules
+ -no-import-library do not generate import library
-no-compiler-syntax disable expansion of compiler-macros
Translation options:
diff --git a/support.scm b/support.scm
index 110958ec..60056fca 100644
--- a/support.scm
+++ b/support.scm
@@ -1224,6 +1224,7 @@ Usage: chicken FILENAME OPTION ...
-emit-import-library MODULE write compile-time module information into
separate file
-emit-all-import-libraries emit import-libraries for all defined modules
+ -no-import-library do not generate import library
-no-compiler-syntax disable expansion of compiler-macros
Translation options:
Trap