summaryrefslogtreecommitdiff
path: root/src/runtime/haskell/PGF/Expr.hs
diff options
context:
space:
mode:
authorkr.angelov <kr.angelov@gmail.com>2014-09-11 15:39:39 +0000
committerkr.angelov <kr.angelov@gmail.com>2014-09-11 15:39:39 +0000
commit621d748bac0914a93e3d399f81616c70fd083bb5 (patch)
tree60f1f5ee5be58c9a26adb24d0a185766d9f1b20b /src/runtime/haskell/PGF/Expr.hs
parent18ee232497cea462434359cdd759e20321a2b750 (diff)
a major revision of the bytecode generator and JIT compiler. the effect is that now we can compute with lambda functions and with true tail recursion
Diffstat (limited to 'src/runtime/haskell/PGF/Expr.hs')
-rw-r--r--src/runtime/haskell/PGF/Expr.hs10
1 files changed, 0 insertions, 10 deletions
diff --git a/src/runtime/haskell/PGF/Expr.hs b/src/runtime/haskell/PGF/Expr.hs
index 80a615e67..27b0623ea 100644
--- a/src/runtime/haskell/PGF/Expr.hs
+++ b/src/runtime/haskell/PGF/Expr.hs
@@ -31,12 +31,6 @@ import Control.Monad
import qualified Text.PrettyPrint as PP
import qualified Text.ParserCombinators.ReadP as RP
-data Literal =
- LStr String -- ^ string constant
- | LInt Int -- ^ integer constant
- | LFlt Double -- ^ floating point constant
- deriving (Eq,Ord,Show)
-
type MetaId = Int
data BindType =
@@ -274,10 +268,6 @@ pattScope scope (PTilde e) = scope
ppBind Explicit x = ppCId x
ppBind Implicit x = PP.braces (ppCId x)
-ppLit (LStr s) = PP.text (show s)
-ppLit (LInt n) = PP.int n
-ppLit (LFlt d) = PP.double d
-
ppMeta :: MetaId -> PP.Doc
ppMeta n
| n == 0 = PP.char '?'