Transfer: support printing meta variable values.

2005-11-29 17:08:08 +00:00
parent cd5e3e6744
commit e561f6398b
1 changed files with 1 additions and 0 deletions
--- a/src/Transfer/Interpreter.hs
+++ b/src/Transfer/Interpreter.hs
@@ -186,6 +186,7 @@ valueToExp v =
           VClos env e  -> e
           VCons c vs -> foldl EApp (EVar c) (map valueToExp vs)
           VPrim _    -> EVar (CIdent "<<primitive>>") -- FIXME: what to return here?
+           VMeta n    -> EMeta $ TMeta $ "?" ++ show n

 --
 -- * Pretty printing of values