summaryrefslogtreecommitdiff
path: root/src/runtime/c/pgf/reader.c
diff options
context:
space:
mode:
authorkr.angelov <kr.angelov@gmail.com>2014-10-09 19:34:12 +0000
committerkr.angelov <kr.angelov@gmail.com>2014-10-09 19:34:12 +0000
commitf8b73d593ca147e48a723d3dceda7c5977d21ae6 (patch)
tree674b540b555f240ca2b32f65cb86e233cd1f2af9 /src/runtime/c/pgf/reader.c
parent86e9acc7a7b714307e08ab25117ca03cecb00936 (diff)
Prelude.CAPIT is now a built-in primitive. It still generates &| in the Haskell runtime but will be intepreted in the C runtime
Diffstat (limited to 'src/runtime/c/pgf/reader.c')
-rw-r--r--src/runtime/c/pgf/reader.c7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/runtime/c/pgf/reader.c b/src/runtime/c/pgf/reader.c
index 8ff80a67c..8314fef5f 100644
--- a/src/runtime/c/pgf/reader.c
+++ b/src/runtime/c/pgf/reader.c
@@ -709,6 +709,13 @@ pgf_read_symbol(PgfReader* rdr)
gu_return_on_exn(rdr->err, gu_null_variant);
break;
}
+ case PGF_SYMBOL_CAPIT: {
+ gu_new_variant(PGF_SYMBOL_CAPIT,
+ PgfSymbolCAPIT,
+ &sym, rdr->opool);
+ gu_return_on_exn(rdr->err, gu_null_variant);
+ break;
+ }
default:
pgf_read_tag_error(rdr);
}