[bugfix] (set! symbol? list) doesn't work

2015-07-04 18:48:48 +09:00
parent e6719a43bb
commit f210efd066
5 changed files with 93 additions and 18 deletions
@@ -106,6 +106,9 @@ struct pic_state {
  pic_sym *uADD, *uSUB, *uMUL, *uDIV, *uEQ, *uLT, *uLE, *uGT, *uGE, *uNOT;
  pic_sym *uVALUES, *uCALL_WITH_VALUES;

+  pic_value pCONS, pCAR, pCDR, pNILP, pPAIRP, pSYMBOLP, pNOT;
+  pic_value pADD, pSUB, pMUL, pDIV, pEQ, pLT, pLE;
+
  struct pic_lib *PICRIN_BASE;
  struct pic_lib *PICRIN_USER;