klisp

commit 86e66225c5dbeb5780f691de2a3d478f1b7d44ab
parent 6d15ebe62a5b25fc7935c618e8b130c216ef730d
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Fri, 15 Apr 2011 18:32:27 -0300

Bugfix: in shared tokens, the i was incremented after instead of before.

Diffstat:
M
src/ktoken.c
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/ktoken.c b/src/ktoken.c
@@ -640,7 +640,7 @@ TValue ktok_read_special(klisp_State *K)
 		/* avoid warning */
 		return KINERT;
 	    }
-	    ch = buf[i++];
+	    ch = buf[++i];
 	}
 	if (i == buf_len) {
 	    ktok_error(K, "Missing last char in srfi-38 token");