~ chicken-core (chicken-5) 3fd7361a18342ba17fc16c0289be5677e205fcb9

commit 3fd7361a18342ba17fc16c0289be5677e205fcb9
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Jul 22 14:29:16 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jul 22 14:29:16 2011 +0200

    removed constant-fold warning, since there allways will be stuff like macro-generated dead code

diff --git a/optimizer.scm b/optimizer.scm
index c3f5b6eb..7f2b14d7 100644
--- a/optimizer.scm
+++ b/optimizer.scm
@@ -189,19 +189,6 @@
 			   (cddr subs)
 			   (lambda (ok form result msg)
 			     (cond ((not ok)
-				    (let ((loc
-					   (and (pair? fids)
-						(real-name (car fids)))))
-				      (warning
-				       (string-append
-					(if loc
-					    (string-append "(in " loc ") ")
-					    "")
-					"constant-folding expression results in error"
-					(if msg
-					    (string-append ": \"" msg "\"")
-					    ""))
-				       form))
 				    (unless odirty (set! dirty #f))
 				    (set! broken-constant-nodes
 				      (lset-adjoin eq? broken-constant-nodes n1))