~ chicken-core (chicken-5) 54e18c8cce7c2dcd073bff4ed3f5bfbf1d288928

commit 54e18c8cce7c2dcd073bff4ed3f5bfbf1d288928
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Jun 6 15:45:30 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Jun 6 15:45:30 2011 +0200

    disable scrutiny if -w is given

diff --git a/batch-driver.scm b/batch-driver.scm
index f68332d5..99cda0db 100644
--- a/batch-driver.scm
+++ b/batch-driver.scm
@@ -214,9 +214,14 @@
       (set! inline-locally #t))
     (when (or verbose do-scrutinize)
       (set! ##sys#notices-enabled #t))
+    (when (memq 'strict-types options)
+      (set! strict-variable-types #t)
+      (set! enable-specialization #t)
+      (set! do-scrutinize #t))
     (when (memq 'no-warnings options) 
       (dribble "Warnings are disabled")
-      (set! ##sys#warnings-enabled #f) )
+      (set! ##sys#warnings-enabled #f) 
+      (set! do-scrutinize #f))		; saves some processing time
     (when (memq 'optimize-leaf-routines options) (set! optimize-leaf-routines #t))
     (when (memq 'unsafe options) 
       (set! unsafe #t) )
@@ -262,10 +267,6 @@
       (parentheses-synonyms #f)
       (symbol-escape #f) )
     (set! verbose-mode verbose)
-    (set! strict-variable-types (memq 'strict-types options))
-    (when strict-variable-types
-      (set! enable-specialization #t)
-      (set! do-scrutinize #t))
     (set! ##sys#read-error-with-line-number #t)
     (set! ##sys#include-pathnames
       (append (map chop-separator (collect-options 'include-path))