fixing typo

This commit is contained in:
Alex Shinn 2010-09-17 01:48:17 +00:00
parent d451a053ca
commit f9677d7a0c

2
vm.c
View file

@ -633,7 +633,7 @@ sexp sexp_vm (sexp ctx, sexp proc) {
tmp2 = stack[fp+3];
j = sexp_unbox_fixnum(stack[fp]);
self = stack[fp+2];
bc = sexp_procedure_vars(self);
bc = sexp_procedure_code(self);
cp = sexp_procedure_vars(self);
ip = (sexp_bytecode_data(bc)
+ sexp_unbox_fixnum(stack[fp+1])) - sizeof(sexp);