Transfer: support printing meta variable values.

2026-04-09 04:59:31 -06:00 · 2005-11-29 17:08:08 +00:00
parent c756b75ad8
commit 3374034bbf
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