From 5c8a8efeddd53fb6bb824c5074c4e4cb9393e9fb Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Fri, 5 Dec 2025 15:00:31 -0500 Subject: Update --- fig-utils/csrc/fig.c | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'fig-utils/csrc') diff --git a/fig-utils/csrc/fig.c b/fig-utils/csrc/fig.c index 0df8bae..9e3b4b8 100644 --- a/fig-utils/csrc/fig.c +++ b/fig-utils/csrc/fig.c @@ -39,6 +39,24 @@ SCM default_bindings() { scm_from_utf8_symbol("interaction-environment")), bindings ); + bindings = scm_cons( + scm_list_2( + scm_list_1(scm_from_utf8_symbol("guile")), + scm_from_utf8_symbol("read")), + bindings + ); + bindings = scm_cons( + scm_list_2( + scm_list_1(scm_from_utf8_symbol("guile")), + scm_from_utf8_symbol("open-input-string")), + bindings + ); + bindings = scm_cons( + scm_list_2( + scm_list_2(scm_from_utf8_symbol("ice-9"), scm_from_utf8_symbol("format")), + scm_from_utf8_symbol("format")), + bindings + ); return bindings; } -- cgit v1.2.3