From d1d21aa1ed0224f51a0d2938921100ecad310be1 Mon Sep 17 00:00:00 2001
From: Slava <slava@emu.(none)>
Date: Sun, 30 Sep 2007 01:18:46 -0400
Subject: [PATCH] Fix a case where if-intrinsics were not being used

---
 core/optimizer/backend/backend.factor | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/core/optimizer/backend/backend.factor b/core/optimizer/backend/backend.factor
index 479b9104ac..05d8fd30b2 100644
--- a/core/optimizer/backend/backend.factor
+++ b/core/optimizer/backend/backend.factor
@@ -118,6 +118,12 @@ M: #return optimize-node* cleanup-inlining ;
 ! #values
 M: #values optimize-node* cleanup-inlining ;
 
+! #>r
+M: #>r optimize-node* [ node-in-d empty? ] prune-if ;
+
+! #r>
+M: #r> optimize-node* [ node-in-r empty? ] prune-if ;
+
 ! Some utilities for splicing in dataflow IR subtrees
 : follow ( key assoc -- value )
     2dup at* [ swap follow nip ] [ 2drop ] if ;