From 22e3bdce0251ce840a440a2c04c8c229d4c74947 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 24 Jun 2004 15:13:40 +0000
Subject: [PATCH] fixed unlexer

---
 src/GF/API.hs               | 2 +-
 src/GF/UseGrammar/Custom.hs | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/GF/API.hs b/src/GF/API.hs
index 62318c743..0a1f2ee1a 100644
--- a/src/GF/API.hs
+++ b/src/GF/API.hs
@@ -205,7 +205,7 @@ optLinearizeTree opts0 gr t = case getOptVal opts transferFun of
                                 allLinTables g c
     | oElem showAll opts    = liftM (unlines . map untok . prLinTable False) . 
                                 allLinTables g c
-    | otherwise             = return . unlines . optIntOrOne . linTree2strings mk g c
+    | otherwise = return . unlines . map untok . optIntOrOne . linTree2strings mk g c
   g = grammar gr
   c = cncId gr
   untok = customOrDefault opts useUntokenizer customUntokenizer gr
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs
index 7ab28b34e..3fb386c79 100644
--- a/src/GF/UseGrammar/Custom.hs
+++ b/src/GF/UseGrammar/Custom.hs
@@ -303,6 +303,7 @@ customUntokenizer =
   ,(strCI "codelit",   const $ formatAsCodeLit)
   ,(strCI "concat",    const $ concat . words)
   ,(strCI "glue",      const $ performBinds)
+  ,(strCI "reverse",   const $ reverse)
   ,(strCI "bind",      const $ performBinds) -- backward compat
 -- add your own untokenizers here
   ]