From 813ca472ba3cc813e3138e1996d608dff6743e00 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Mon, 20 May 2013 00:54:37 +0100 Subject: [PATCH] Fix bug in Ir normalization --- experimental/compiler.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) 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 -- 1.7.10.4