diff options
| author | LLLL Colonq <llll@colonq> | 2025-12-05 15:00:31 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2025-12-05 15:00:31 -0500 |
| commit | 5c8a8efeddd53fb6bb824c5074c4e4cb9393e9fb (patch) | |
| tree | 8a9e5f4f59363f95bfa16152c529d3f13358837b | |
| parent | 2a21b457d71e8cace0db0e3b4913234d25f38aec (diff) | |
Update
| -rw-r--r-- | fig-utils/csrc/fig.c | 18 |
1 files changed, 18 insertions, 0 deletions
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; } |
