diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2014-09-11 15:39:39 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2014-09-11 15:39:39 +0000 |
| commit | 621d748bac0914a93e3d399f81616c70fd083bb5 (patch) | |
| tree | 60f1f5ee5be58c9a26adb24d0a185766d9f1b20b /src/runtime/haskell/PGF/Expr.hs | |
| parent | 18ee232497cea462434359cdd759e20321a2b750 (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.hs | 10 |
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 '?'
|
