From aae6123e9e589359c5c696af14e16dd68e128206 Mon Sep 17 00:00:00 2001 From: krangelov Date: Thu, 18 Nov 2021 11:17:20 +0100 Subject: [PATCH] fix: call symks instead of symvar --- src/runtime/haskell/PGF2/Transactions.hsc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/runtime/haskell/PGF2/Transactions.hsc b/src/runtime/haskell/PGF2/Transactions.hsc index 5f388b888..9e593ab76 100644 --- a/src/runtime/haskell/PGF2/Transactions.hsc +++ b/src/runtime/haskell/PGF2/Transactions.hsc @@ -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