simon/post-scarcity
1
0
Fork 0
Code Issues 18 Pull requests Projects Releases Packages Wiki Activity Actions

I *think* that's all the bootstrap functions being bound in the environment.

Browse source
This commit is contained in:
Simon Brooke 2026-05-04 18:23:46 +01:00
parent efa6a3246d
commit fcfdb43b05
8 changed files with 184 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/ops/inspect.h
View file

@ -9,8 +9,8 @@
* Licensed under GPL version 2.0, or, at your option, any later version.
*/
#ifndef psse_ops_inspect_h
#define psse_ops_inspect_h
#ifndef __psse_ops_inspect_h
#define __psse_ops_inspect_h
#include "memory/pointer.h"

4
src/c/ops/keys.h
View file

@ -9,8 +9,8 @@
* Licensed under GPL version 2.0, or, at your option, any later version.
*/
#ifndef psse_ops_keys
#define psse_ops_keys
#ifndef __psse_ops_keys_h
#define __psse_ops_keys_h
struct pso_pointer c_keys( struct pso_pointer store );

6
src/c/ops/mapcar.h
View file

@ -9,9 +9,9 @@
* Licensed under GPL version 2.0, or, at your option, any later version.
*/
#ifndef psse_ops_mapcar
#define psse_ops_mapcar
#ifndef __psse_ops_mapcar_h
#define __psse_ops_mapcar_h
struct pso_pointer lisp_mapcar( struct pso_pointer frame_pointer );
#endif

6
src/c/ops/repl.c
View file

@ -48,7 +48,7 @@ void interrupt_handler( int dummy ) {
/**
* Very simple read/eval/print loop for bootstrapping.
*/
void repl( struct pso_pointer frame_pointer ) {
struct pso_pointer repl( struct pso_pointer frame_pointer ) {
struct pso4 *frame = pointer_to_pso4( frame_pointer );
bool show_prompt = c_truep( fetch_arg( frame, 0 ) );
// todo: issue #21: must have stack frame passed in.
@ -106,5 +106,7 @@ void repl( struct pso_pointer frame_pointer ) {
dec_ref( base_of_stack );
}
debug_print( L"Leaving repl\n", DEBUG_REPL, 0 );
debug_print(L"Leaving repl\n", DEBUG_REPL, 0);
return nil;
}

10
src/c/ops/repl.h
View file

@ -9,11 +9,13 @@
* Licensed under GPL version 2.0, or, at your option, any later version.
*/
#ifndef SRC_C_OPS_REPL_H_
#define SRC_C_OPS_REPL_H_
#ifndef __psse_ops_repl_h
#define __psse_ops_repl_h
void repl( struct pso_pointer frame_pointer );
#include "memory/pointer.h"
struct pso_pointer repl( struct pso_pointer frame_pointer );
#endif /* SRC_C_OPS_REPL_H_ */
#endif /* __psse_ops_repl_h */