iris

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

commit 73a398f3d5456712cf432a8d98f298cc8d29e0a8
parent 0c4e684ebd4ff2307244e80238a780491848feb6
Author: sin <sin@2f30.org>
Date:   Wed, 14 May 2014 17:25:54 +0100

Add resetenv()

Diffstat:
Msym.c | 6++++++
Msym.h | 1+
2 files changed, 7 insertions(+), 0 deletions(-)

diff --git a/sym.c b/sym.c @@ -64,6 +64,12 @@ initenv(void) return 0; } +void +resetenv(void) +{ + topenv = &env[0]; +} + int pushenv(void) { diff --git a/sym.h b/sym.h @@ -4,5 +4,6 @@ struct object; struct object *addsym(const char *, struct object *); struct object *lookupsym(const char *); int initenv(void); +void resetenv(void); int pushenv(void); int popenv(void);