iris

small scheme interpreter
git clone git://git.2f30.org/iris
Log | Files | Refs | LICENSE

commit 986bacd157cbd9c1e8965c66d2576da04968367b
parent e931138296d4b10162b69117da49bbf3f300ade9
Author: sin <sin@2f30.org>
Date:   Wed, 14 May 2014 16:16:57 +0100

Staticise functions

Diffstat:
Mparser.c | 16++++++++--------
Mparser.h | 1-
2 files changed, 8 insertions(+), 9 deletions(-)

diff --git a/parser.c b/parser.c @@ -6,7 +6,7 @@ #include "lexer.h" #include "parser.h" -struct object * +static struct object * newobject(void) { struct object *o; @@ -19,7 +19,7 @@ newobject(void) return o; } -struct object * +static struct object * freeobject(struct object *o) { if (!o) @@ -38,7 +38,7 @@ freeobject(struct object *o) free(o); } -struct object * +static struct object * error(struct tok *t) { struct object *o; @@ -54,7 +54,7 @@ error(struct tok *t) return o; } -struct object * +static struct object * eof(struct tok *t) { struct object *o; @@ -70,7 +70,7 @@ eof(struct tok *t) return o; } -struct object * +static struct object * boolean(struct tok *t) { struct object *o; @@ -89,7 +89,7 @@ boolean(struct tok *t) return o; } -struct object * +static struct object * number(struct tok *t) { struct object *o; @@ -105,7 +105,7 @@ number(struct tok *t) return o; } -struct object * +static struct object * character(struct tok *t) { struct object *o; @@ -121,7 +121,7 @@ character(struct tok *t) return o; } -struct object * +static struct object * string(struct tok *t) { struct object *o; diff --git a/parser.h b/parser.h @@ -43,7 +43,6 @@ struct object { } d; }; -struct object *newobject(void); struct object *sexpression(FILE *); struct object *eval(struct object *); void print(struct object *);