klisp

commit b727618afe01d149a90bcf4fe7f042935c12446d
parent 3deed41b7e100244d8b583e947df8522ff939a9a
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Wed,  9 Mar 2011 19:16:51 -0300

Bugfix: bad size in freemem after previous change.

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

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/kerror.c b/src/kerror.c
@@ -39,7 +39,7 @@ void klispE_throw_extra(klisp_State *K, char *msg, char *extra_msg) {
     strcpy(msg_buf+l1, extra_msg);
 
     TValue error_msg = kstring_new(K, msg_buf, tl);
-    klispM_freemem(K, msg_buf, tl+1);
+    klispM_freemem(K, msg_buf, tl);
 
     clear_buffers(K);