From f9677d7a0c310b79705dd152693fd5396e0e5d5b Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Fri, 17 Sep 2010 01:48:17 +0000
Subject: [PATCH] fixing typo

---
 vm.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vm.c b/vm.c
index 0a60c6d0..3d30dafd 100644
--- a/vm.c
+++ b/vm.c
@@ -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);