From 87b55df10f00fd23d89a89bfb7c4354ff455d83d Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 11 Jan 2005 15:06:12 +0000
Subject: -val optimization

---
 src/GF/Compile/Optimize.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/GF/Compile/Optimize.hs')

diff --git a/src/GF/Compile/Optimize.hs b/src/GF/Compile/Optimize.hs
index 61ff8de32..d379a2ecd 100644
--- a/src/GF/Compile/Optimize.hs
+++ b/src/GF/Compile/Optimize.hs
@@ -188,6 +188,7 @@ evalPrintname gr c ppr lin =
      Abs _ b   -> oneBranch b
      R   (r:_) -> oneBranch $ snd $ snd r
      T _ (c:_) -> oneBranch $ snd c
+     V _ (c:_) -> oneBranch c
      FV  (t:_) -> oneBranch t
      C x y     -> C (oneBranch x) (oneBranch y)
      S x _     -> oneBranch x
-- 
cgit v1.2.3