From 55acddef3f97b592b5718c3e687ef1276cb329e3 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 8 Aug 2009 20:03:13 -0500
Subject: [PATCH] compiler.cfg.representation: OK to unbox output of
 ##load-reference globally

---
 basis/compiler/cfg/representations/representations.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/basis/compiler/cfg/representations/representations.factor b/basis/compiler/cfg/representations/representations.factor
index f58870850e..cb98eb0ae5 100644
--- a/basis/compiler/cfg/representations/representations.factor
+++ b/basis/compiler/cfg/representations/representations.factor
@@ -47,7 +47,9 @@ SYMBOL: always-boxed
     H{ } clone [
         '[
             [
-                [ _ (compute-always-boxed) ] each-def-rep
+                dup ##load-reference? [ drop ] [
+                    [ _ (compute-always-boxed) ] each-def-rep
+                ] if
             ] each-non-phi
         ] each-basic-block
     ] keep ;