efficient and nicer implementation for literal categories

2008-10-21 14:30:36 +00:00
parent 6633ae71f1
commit 0606de738e
6 changed files with 62 additions and 58 deletions
--- a/src/PGF/Data.hs
+++ b/src/PGF/Data.hs
@@ -70,6 +70,7 @@ type FIndex    = Int
 type FPointPos = Int
 data FSymbol
  = FSymCat {-# UNPACK #-} !Int {-# UNPACK #-} !FIndex
+  | FSymLit {-# UNPACK #-} !Int {-# UNPACK #-} !FIndex
  | FSymTok Tokn
  deriving (Eq,Ord,Show)
 type Profile = [Int]