iris

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

commit 954f8f5dd3280609a83c1bf094d18f3444499126
parent 13dd2b6539957e1ff665afbe3226bb68581372fa
Author: sin <sin@2f30.org>
Date:   Wed, 14 May 2014 14:54:33 +0100

Use identifier() for builtins

Diffstat:
Mparser.c | 7+------
1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/parser.c b/parser.c @@ -323,13 +323,8 @@ print(struct object *o) int init(void) { - struct object *o; - initenv(); - o = newobject(); - o->type = OIdentifier; - o->d.i.s = "quote"; - quotesym = o; + quotesym = identifier("quote"); addsym("quote", quotesym); return 0; }