1 files changed, 13 insertions, 1 deletions
diff --git a/stdlib/source/lux/compiler/default/reference.lux b/stdlib/source/lux/compiler/default/reference.lux
index 0bbeb2db5..cde1f5b5c 100644
--- a/stdlib/source/lux/compiler/default/reference.lux
+++ b/stdlib/source/lux/compiler/default/reference.lux
@@ -3,7 +3,10 @@
    [control
     [equivalence (#+ Equivalence)]
     [hash (#+ Hash)]
-    pipe]])
+    pipe]
+   [data
+    [text
+     format]]])
 
 (type: #export Register Nat)
 
@@ -65,3 +68,12 @@
 
               _
               #0)))
+
+(def: #export (%variable variable)
+  (Format Variable)
+  (case variable
+    (#Local local)
+    (format "+" (%n local))
+    
+    (#Foreign foreign)
+    (format "-" (%n foreign))))