diff options
| author | aarne <aarne@cs.chalmers.se> | 2005-11-30 09:04:45 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2005-11-30 09:04:45 +0000 |
| commit | ac08470c220ab57f20e673042878ea6c0faf167b (patch) | |
| tree | 2b7ba56c6f7dac0daf140d94a384576cbb129ec6 /src/GF/API.hs | |
| parent | 9db05c57f8b65cab64223d27510df620a9fcd0ad (diff) | |
transfer added to GF command interpreter[D[
Diffstat (limited to 'src/GF/API.hs')
| -rw-r--r-- | src/GF/API.hs | 7 |
1 files changed, 2 insertions, 5 deletions
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 |