~ chicken-core (chicken-5) c71a342a4d5965b9bd632c745f3a316e97ec8f1f

commit c71a342a4d5965b9bd632c745f3a316e97ec8f1f
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon May 9 12:20:32 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon May 9 12:20:32 2011 +0200

    -strict-types implies -specialize

diff --git a/batch-driver.scm b/batch-driver.scm
index 9065dee6..956a0cff 100644
--- a/batch-driver.scm
+++ b/batch-driver.scm
@@ -263,6 +263,7 @@
       (symbol-escape #f) )
     (set! verbose-mode verbose)
     (set! strict-variable-types (memq 'strict-types options))
+    (when strict-variable-types (set! enable-specialization #t))
     (set! ##sys#read-error-with-line-number #t)
     (set! ##sys#include-pathnames
       (append (map chop-separator (collect-options 'include-path))