causa-arcana-misc/lesson-lisp
1
0
Fork 0
Code Activity

Add comments

Browse source
This commit is contained in:
Alex Kotov 2023-05-07 17:44:50 +04:00
parent dc8d81a382
commit 522936f222
Signed by: kotovalexarian
GPG key ID: 553C0EBBEB5D5F08
2 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/syntax.c
View file

@ -5,6 +5,10 @@
#include <assert.h> #include <assert.h>
/*******************************************
* Special syntax to use in the executable *
*******************************************/
struct Object *syntax_repl( struct Object *syntax_repl(
struct Object *args, struct Object *args,
struct Object *const environment struct Object *const environment
@ -19,6 +23,10 @@ struct Object *syntax_script(
return eval(args, environment); return eval(args, environment);
} }
/*******************
* Syntax keywords *
*******************/
struct Object *syntax_begin( struct Object *syntax_begin(
struct Object *args, struct Object *args,
struct Object *const environment struct Object *const environment

8
src/syntax.h
View file

@ -3,9 +3,17 @@
#include "object.h" #include "object.h"
/*******************************************
* Special syntax to use in the executable *
*******************************************/
struct Object *syntax_repl(struct Object *args, struct Object *environment); struct Object *syntax_repl(struct Object *args, struct Object *environment);
struct Object *syntax_script(struct Object *args, struct Object *environment); struct Object *syntax_script(struct Object *args, struct Object *environment);
/*******************
* Syntax keywords *
*******************/
struct Object *syntax_begin(struct Object *args, struct Object *environment); struct Object *syntax_begin(struct Object *args, struct Object *environment);
struct Object *syntax_define(struct Object *args, struct Object *environment); struct Object *syntax_define(struct Object *args, struct Object *environment);
struct Object *syntax_if(struct Object *args, struct Object *environment); struct Object *syntax_if(struct Object *args, struct Object *environment);