From b49a12e48beb2dcad3a09866aad337a67d5c2e44 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Thu, 26 Mar 2009 13:58:42 +0900 Subject: [PATCH] removing commented out code --- eval.c | 5 ----- 1 file changed, 5 deletions(-) diff --git a/eval.c b/eval.c index 9fb85a8c..69263aa8 100644 --- a/eval.c +++ b/eval.c @@ -771,16 +771,11 @@ sexp vm(sexp bc, sexp cp, sexp e, sexp* stack, sexp_sint_t top) { fprintf(stderr, "noop\n"); break; case OP_LOCAL_REF: -/* fprintf(stderr, "STACK-REF[%ld - %ld = %ld]\n", top, */ -/* (sexp_sint_t) ((sexp*)ip)[0], top - (sexp_sint_t) ((sexp*)ip)[0]); */ - /* stack[top] = stack[top - (sexp_sint_t) ((sexp*)ip)[0]]; */ stack[top] = stack[fp - 1 - (sexp_sint_t) ((sexp*)ip)[0]]; ip += sizeof(sexp); top++; break; case OP_LOCAL_SET: -/* fprintf(stderr, "STACK-SET[%ld - %ld = %ld]\n", top, */ -/* (sexp_sint_t) ((sexp*)ip)[0], top - (sexp_sint_t) ((sexp*)ip)[0]); */ stack[fp - 1 - (sexp_sint_t) ((sexp*)ip)[0]] = _ARG1; _ARG1 = SEXP_UNDEF; ip += sizeof(sexp);