From 5797ac661a6e5e96f847db5da953b0ffa7f5a8d0 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sat, 1 Jun 2013 18:55:04 +0900 Subject: [PATCH] Fixing offsets for bytecode accessors. --- lib/chibi/ast.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/chibi/ast.c b/lib/chibi/ast.c index eb31ad9e..58b2fde4 100644 --- a/lib/chibi/ast.c +++ b/lib/chibi/ast.c @@ -519,9 +519,9 @@ sexp sexp_init_library (sexp ctx, sexp self, sexp_sint_t n, sexp env, const char sexp_define_accessors(ctx, env, SEXP_REF, 1, "ref-cell", "ref-cell-set!"); sexp_define_accessors(ctx, env, SEXP_SEQ, 0, "seq-ls", "seq-ls-set!"); sexp_define_accessors(ctx, env, SEXP_LIT, 0, "lit-value", "lit-value-set!"); - sexp_define_accessors(ctx, env, SEXP_BYTECODE, 1, "bytecode-name", "bytecode-name-set!"); - sexp_define_accessors(ctx, env, SEXP_BYTECODE, 2, "bytecode-literals", NULL); - sexp_define_accessors(ctx, env, SEXP_BYTECODE, 3, "bytecode-source", NULL); + sexp_define_accessors(ctx, env, SEXP_BYTECODE, 2, "bytecode-name", "bytecode-name-set!"); + sexp_define_accessors(ctx, env, SEXP_BYTECODE, 3, "bytecode-literals", NULL); + sexp_define_accessors(ctx, env, SEXP_BYTECODE, 4, "bytecode-source", NULL); sexp_define_accessors(ctx, env, SEXP_EXCEPTION, 0, "exception-kind", NULL); sexp_define_accessors(ctx, env, SEXP_EXCEPTION, 1, "exception-message", NULL); sexp_define_accessors(ctx, env, SEXP_EXCEPTION, 2, "exception-irritants", NULL);