diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2014-10-09 19:34:12 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2014-10-09 19:34:12 +0000 |
| commit | f8b73d593ca147e48a723d3dceda7c5977d21ae6 (patch) | |
| tree | 674b540b555f240ca2b32f65cb86e233cd1f2af9 /src/runtime/haskell/PGF/Macros.hs | |
| parent | 86e9acc7a7b714307e08ab25117ca03cecb00936 (diff) | |
Prelude.CAPIT is now a built-in primitive. It still generates &| in the Haskell runtime but will be intepreted in the C runtime
Diffstat (limited to 'src/runtime/haskell/PGF/Macros.hs')
| -rw-r--r-- | src/runtime/haskell/PGF/Macros.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/runtime/haskell/PGF/Macros.hs b/src/runtime/haskell/PGF/Macros.hs index 7cf2661cc..8ca2a4f29 100644 --- a/src/runtime/haskell/PGF/Macros.hs +++ b/src/runtime/haskell/PGF/Macros.hs @@ -156,6 +156,7 @@ data BracketedTokn | LeafNE | LeafBIND | LeafSOFT_BIND + | LeafCAPIT | LeafKP [BracketedTokn] [([BracketedTokn],[String])] deriving Eq @@ -219,6 +220,7 @@ computeSeq filter seq args = concatMap compute seq compute SymNE = [LeafNE] compute SymBIND = [LeafKS "&+"] compute SymSOFT_BIND = [] + compute SymCAPIT = [LeafKS "&|"] compute (SymKP syms alts) = [LeafKP (concatMap compute syms) [(concatMap compute syms,cs) | (syms,cs) <- alts]] getArg d r |