From 3a47a903e8d35c7e02391d9c237705c0becb462c Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sun, 22 Nov 2009 17:54:45 +0900
Subject: [PATCH] disasm defaults to printing to (current-error-port)

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

diff --git a/opcodes.c b/opcodes.c
index c11154b9..04f7b4e6 100644
--- a/opcodes.c
+++ b/opcodes.c
@@ -137,7 +137,7 @@ _FN3(SEXP_STRING, SEXP_FIXNUM, "make-getter", 0, sexp_make_getter),
 _FN3(SEXP_STRING, SEXP_FIXNUM, "make-setter", 0, sexp_make_setter),
 #endif
 #if USE_DEBUG
-_FN2(SEXP_PROCEDURE, SEXP_OPORT, "disasm", 0, sexp_disasm),
+_FN2OPTP(SEXP_PROCEDURE, SEXP_OPORT, "disasm", (sexp)"*current-error-port*", sexp_disasm),
 #endif
 #if PLAN9
 #include "opt/plan9-opcodes.c"