iris

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

commit 9203c225caabde0fed36559be6700f812bde76b0
parent 555f52ffef1fcd2f275a20aca5670305919c4417
Author: sin <sin@2f30.org>
Date:   Mon, 19 May 2014 13:05:41 +0100

No need to use a do-while loop

Diffstat:
Mparser.c | 4++--
1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/parser.c b/parser.c @@ -713,7 +713,7 @@ evalparams(struct object *o) args = cdr(o); pcdr = params; acdr = args; - do { + while (1) { pcar = car(pcdr); acar = car(acdr); if (!pcar && !acar) @@ -728,7 +728,7 @@ evalparams(struct object *o) return error("expected udentifier"); tmp = eval(acar); addsym(pcar->d.i.name, tmp); - } while (1); + } return lookupsym("ok"); }