~ chicken-core (chicken-5) 4b9480c6ceb516bb41c513a71c5835f03bfa43ca

commit 4b9480c6ceb516bb41c513a71c5835f03bfa43ca
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Aug 31 15:49:57 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Aug 31 15:49:57 2011 +0200

    disabled assign-to-captured opt. - needs to be tested more

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 7a103e84..c1faf0d2 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -632,7 +632,8 @@
 			(alist-cons
 			 (cons var (car flow)) 
 			 (if (or strict-variable-types
-				 (not (get db var 'captured)))
+				 ;;XXX needs to be tested more
+				 #;(not (get db var 'captured)))
 			     rt 
 			     '*)
 			 blist)))