From 4fd77c7963f786804e6aabaf4f579e5a4a71bdbb Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Sun, 27 Feb 2011 16:21:01 +0100
Subject: [PATCH] Fixed disassembly of OP_CSET

---
 src/c/disassembler.d | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/c/disassembler.d b/src/c/disassembler.d
index b1f36c35e..3d93ecd8a 100644
--- a/src/c/disassembler.d
+++ b/src/c/disassembler.d
@@ -214,11 +214,11 @@ disassemble(cl_object bytecodes, cl_opcode *vector) {
 				GET_DATA(o, vector, data);
 				goto ARG;
 
-	/* OP_QUOTE
+	/* OP_CSET	n{arg}
 		Replace constant with a computed value
 	*/
 	case OP_CSET:		string = "CSET\t";
-		                GET_OPARG(n, data);
+		                GET_OPARG(n, vector);
 				goto OPARG;
 
 	/* OP_VAR	n{arg}