From afe630bc42985b534853d5be4ac7dff9fb0f2b47 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 10 Dec 2013 05:40:03 -0800
Subject: [PATCH] use find_library inside in_library

---
 src/lib.c | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/lib.c b/src/lib.c
index 39e0c74b..54493011 100644
--- a/src/lib.c
+++ b/src/lib.c
@@ -28,15 +28,15 @@ pic_make_library(pic_state *pic, pic_value name)
 }
 
 void
-pic_in_library(pic_state *pic, pic_value name)
+pic_in_library(pic_state *pic, pic_value spec)
 {
-  pic_value v;
+  struct pic_lib *lib;
 
-  v = pic_assoc(pic, name, pic->lib_tbl);
-  if (pic_false_p(v)) {
+  lib = pic_find_library(pic, spec);
+  if (! lib) {
     pic_error(pic, "library not found");
   }
-  pic->lib = pic_lib_ptr(pic_cdr(pic, v));
+  pic->lib = lib;
 }
 
 struct pic_lib *