add OP_NILP

2013-10-20 03:53:02 +09:00
parent 78f301794a
commit cfae6f3c59
4 changed files with 23 additions and 3 deletions
@@ -23,7 +23,7 @@ typedef struct {
  pic_callinfo *cibase, *ciend;

  pic_value sDEFINE, sLAMBDA, sIF, sBEGIN, sQUOTE;
-  pic_value sCONS, sCAR, sCDR;
+  pic_value sCONS, sCAR, sCDR, sNILP;
  pic_value sADD, sSUB, sMUL, sDIV;
  struct pic_env *global_env;

@@ -18,6 +18,7 @@ enum pic_opcode {
  OP_CONS,
  OP_CAR,
  OP_CDR,
+  OP_NILP,
  OP_ADD,
  OP_SUB,
  OP_MUL,