GitHub/gf-core
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-11-05 03:35:27 -07:00
Code Issues Packages Projects Releases Wiki Activity

fix: call symks instead of symvar

Browse Source
This commit is contained in:
krangelov committed 2021-11-18 11:17:20 +01:00
1 parent dc609d2fff
commit aae6123e9e
1 file changed
+1 -1
Download Patch File Download Diff File Expand all files Collapse all files
src/runtime/haskell/PGF2/Transactions.hsc
+1 -1
View File
@@ -278,7 +278,7 @@ createLin name prods = Transaction $ \c_db c_abstr c_revision c_exn ->
fun <- (#peek PgfLinBuilderIfaceVtbl, add_symvar) vtbl
callLinBuilder2 fun c_builder (fromIntegral d) (fromIntegral r) c_exn
addSymbol c_builder vtbl c_exn (SymKS tok) = do
fun <- (#peek PgfLinBuilderIfaceVtbl, add_symvar) vtbl
fun <- (#peek PgfLinBuilderIfaceVtbl, add_symks) vtbl
withText tok $ \c_tok ->
callLinBuilder5 fun c_builder c_tok c_exn
addSymbol c_builder vtbl c_exn SymBIND = do