Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-16 17:37:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

accepting identifiers to derefence as args to disasm, for macros

Browse source
This commit is contained in:
Alex Shinn 2015-07-26 22:26:09 +09:00
parent 4382df2fbb
commit 2500569861
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/disasm.c
View file

@ -37,6 +37,10 @@ static sexp disasm (sexp ctx, sexp self, sexp bc, sexp out, int depth) {
sexp_sint_t src_off=0; sexp_sint_t src_off=0;
#endif #endif
if (sexp_idp(bc))
bc = sexp_env_ref(ctx, sexp_context_env(ctx), bc, SEXP_FALSE);
if (sexp_macrop(bc))
bc = sexp_macro_proc(bc);
if (sexp_procedurep(bc)) { if (sexp_procedurep(bc)) {
bc = sexp_procedure_code(bc); bc = sexp_procedure_code(bc);
} else if (sexp_opcodep(bc)) { } else if (sexp_opcodep(bc)) {