core: Prepare for M2-Planet: module.c.

* src/module.c: Rewrite C constructs not supported by M2-Planet.
This commit is contained in:
Jan Nieuwenhuizen 2019-10-21 19:47:04 +02:00
parent 29abe76f3a
commit 9e1291cba7
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 2 additions and 2 deletions

View File

@ -24,7 +24,7 @@
#include <assert.h>
SCM
make_module_type () ///(internal))
make_module_type () /*:(internal)) */
{
SCM record_type = cell_symbol_record_type; // FIXME
SCM fields = cell_nil;
@ -37,7 +37,7 @@ make_module_type () ///(internal))
}
SCM
make_initial_module (SCM a) ///((internal))
make_initial_module (SCM a) /*:((internal)) */
{
SCM module_type = make_module_type ();
a = acons (cell_symbol_module, module_type, a);