From a1e2e41840477627242e0ea7793f132a95db9525 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sat, 7 Dec 2013 02:31:04 -0800
Subject: [PATCH] add some symbols about library

---
 include/picrin.h | 1 +
 src/state.c      | 3 +++
 2 files changed, 4 insertions(+)

diff --git a/include/picrin.h b/include/picrin.h
index ff241611..ea107174 100644
--- a/include/picrin.h
+++ b/include/picrin.h
@@ -43,6 +43,7 @@ typedef struct {
   pic_sym sDEFINE, sLAMBDA, sIF, sBEGIN, sQUOTE, sSETBANG;
   pic_sym sQUASIQUOTE, sUNQUOTE, sUNQUOTE_SPLICING;
   pic_sym sDEFINE_SYNTAX, sDEFINE_MACRO;
+  pic_sym sDEFINE_LIBRARY, sIMPORT, sEXPORT;
   pic_sym sCONS, sCAR, sCDR, sNILP;
   pic_sym sADD, sSUB, sMUL, sDIV;
   pic_sym sEQ, sLT, sLE, sGT, sGE;
diff --git a/src/state.c b/src/state.c
index 51cc80f6..cc65d132 100644
--- a/src/state.c
+++ b/src/state.c
@@ -100,6 +100,9 @@ pic_open(int argc, char *argv[], char **envp)
   register_core_symbol(pic, sUNQUOTE_SPLICING, "unquote-splicing");
   register_core_symbol(pic, sDEFINE_SYNTAX, "define-syntax");
   register_core_symbol(pic, sDEFINE_MACRO, "define-macro");
+  register_core_symbol(pic, sDEFINE_LIBRARY, "define-library");
+  register_core_symbol(pic, sIMPORT, "import");
+  register_core_symbol(pic, sEXPORT, "export");
   register_core_symbol(pic, sCONS, "cons");
   register_core_symbol(pic, sCAR, "car");
   register_core_symbol(pic, sCDR, "cdr");