msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

strip empty phrases in bracketedLinearize

Browse Source
This commit is contained in:
krangelov
2019-02-27 08:27:50 +01:00
parent fc37bc26cd
commit 52f2739da1
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/runtime/haskell-bind/PGF2.hsc
View File

@@ -990,7 +990,9 @@ withBracketLinFuncs ref exn f =
end_phrase ref _ c_cat c_fid c_lindex c_fun = do end_phrase ref _ c_cat c_fid c_lindex c_fun = do
(bs':stack,bs) <- readIORef ref (bs':stack,bs) <- readIORef ref
cat <- peekUtf8CString c_cat if null bs
then writeIORef ref (stack, bs')
else do cat <- peekUtf8CString c_cat
let fid = fromIntegral c_fid let fid = fromIntegral c_fid
let lindex = fromIntegral c_lindex let lindex = fromIntegral c_lindex
fun <- peekUtf8CString c_fun fun <- peekUtf8CString c_fun