add OP_LSET and OP_CSET

2013-10-24 03:14:32 +09:00
parent 337b54dc40
commit d75b624b4a
6 changed files with 70 additions and 5 deletions
@@ -26,7 +26,7 @@ typedef struct {
  pic_callinfo *ci;
  pic_callinfo *cibase, *ciend;

-  pic_value sDEFINE, sLAMBDA, sIF, sBEGIN, sQUOTE;
+  pic_value sDEFINE, sLAMBDA, sIF, sBEGIN, sQUOTE, sSETBANG;
  pic_value sQUASIQUOTE, sUNQUOTE, sUNQUOTE_SPLICING;
  pic_value sCONS, sCAR, sCDR, sNILP;
  pic_value sADD, sSUB, sMUL, sDIV;
@@ -11,7 +11,9 @@ enum pic_opcode {
  OP_GREF,
  OP_GSET,
  OP_LREF,
+  OP_LSET,
  OP_CREF,
+  OP_CSET,
  OP_JMP,
  OP_JMPIF,
  OP_CALL,