From ac08470c220ab57f20e673042878ea6c0faf167b Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 30 Nov 2005 09:04:45 +0000
Subject: transfer added to GF command interpreter[
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/GF/API.hs | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'src/GF/API.hs')

diff --git a/src/GF/API.hs b/src/GF/API.hs
index ff199f589..6ba3c261a 100644
--- a/src/GF/API.hs
+++ b/src/GF/API.hs
@@ -369,11 +369,8 @@ applyTransfer opts gr trs (mm,f) t =
      Just m -> maybe empty id $ lookup m trs
      _ -> ifNull empty (snd . head) trs
 
-   -- these are missing
-   trans = error "no transfer yet" 
-           ----- core2exp . T.appTransfer tr . exp2core
-   empty = error "emptyEnv" 
-           ---- T.emptyEnv
+   trans tr f = core2exp . T.evaluateExp tr . exp2core f
+   empty = T.builtin
 
 {-
 optTransfer :: Options -> StateGrammar -> G.Term -> G.Term
-- 
cgit v1.2.3