From: David Vázquez <davazp@gmail.com>
Date: Sun, 19 May 2013 23:54:37 +0000 (+0100)
Subject: Fix bug in Ir normalization
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=813ca472ba3cc813e3138e1996d608dff6743e00;p=jscl.git

Fix bug in Ir normalization
---

diff --git a/experimental/compiler.lisp b/experimental/compiler.lisp
index 4fe65c5..ed326cb 100644
--- a/experimental/compiler.lisp
+++ b/experimental/compiler.lisp
@@ -739,11 +739,10 @@
   (dolist (block (component-blocks component))
     (setf (block-data block) 'unreachable))
   ;; Coalesce and mark blocks as reachable.
-  (map-postorder-blocks
-   (lambda (block)
-     (maybe-coalesce-block block)
-     (setf (block-data block) 'reachable))
-   component)
+  (map-postorder-blocks #'maybe-coalesce-block component)
+  (map-postorder-blocks (lambda (block)
+                          (setf (block-data block) 'reachable))
+                        component)
   (let ((block-list nil))
     (dolist (block (component-blocks component))
       (cond