From 906f2c8a936158bfe85a697e4970dee9be02238d Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sat, 7 Dec 2013 23:15:16 -0800
Subject: [PATCH] make-library returns existing library if name conflicts

---
 src/lib.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/lib.c b/src/lib.c
index a43bb97c..b2f9bf86 100644
--- a/src/lib.c
+++ b/src/lib.c
@@ -9,6 +9,10 @@ pic_make_library(pic_state *pic, pic_value name)
 {
   struct pic_lib *lib;
 
+  if ((lib = pic_find_library(pic, name)) != NULL) {
+    return lib;
+  }
+
   lib = (struct pic_lib *)pic_obj_alloc(pic, sizeof(struct pic_lib), PIC_TT_LIB);
   lib->senv = pic_minimal_syntactic_env(pic);
   lib->exports = xh_new();