the loading of PGF files was broken by the Teyjus patch. Now this is fixed

2012-08-30 07:41:49 +00:00
parent b416f5bbf7
commit 3f0b8c55ec
1 changed files with 2 additions and 1 deletions
--- a/src/runtime/haskell/PGF/Binary.hs
+++ b/src/runtime/haskell/PGF/Binary.hs
@@ -43,7 +43,8 @@ instance Binary Abstr where
           funs <- get
           cats <- get
           return (Abstr{ aflags=aflags
-                        , funs=funs, cats=cats
+                        , funs=fmap (\(w,x,y,z) -> (w,x,y,z,0)) funs
+                        , cats=fmap (\(x,y) -> (x,y,0)) cats
                        , code=BS.empty                        
                        })