From 25005698618d67e1f094d2b68659ac2580063b7d Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Sun, 26 Jul 2015 22:26:09 +0900
Subject: [PATCH] accepting identifiers to derefence as args to disasm, for
 macros

---
 lib/chibi/disasm.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/chibi/disasm.c b/lib/chibi/disasm.c
index bca944a9..f0c5a293 100644
--- a/lib/chibi/disasm.c
+++ b/lib/chibi/disasm.c
@@ -37,6 +37,10 @@ static sexp disasm (sexp ctx, sexp self, sexp bc, sexp out, int depth) {
   sexp_sint_t src_off=0;
 #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)) {
     bc = sexp_procedure_code(bc);
   } else if (sexp_opcodep(bc)) {