msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Transfer: support printing meta variable values.

Browse Source
This commit is contained in:
bringert
2005-11-29 17:08:08 +00:00
parent c756b75ad8
commit 3374034bbf
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/Transfer/Interpreter.hs
View File

@@ -186,6 +186,7 @@ valueToExp v =
VClos env e -> e VClos env e -> e
VCons c vs -> foldl EApp (EVar c) (map valueToExp vs) VCons c vs -> foldl EApp (EVar c) (map valueToExp vs)
VPrim _ -> EVar (CIdent "<<primitive>>") -- FIXME: what to return here? VPrim _ -> EVar (CIdent "<<primitive>>") -- FIXME: what to return here?
VMeta n -> EMeta $ TMeta $ "?" ++ show n
-- --
-- * Pretty printing of values -- * Pretty printing of values