From da7ec5b64f9071f10a2a586cca149f62e6ab7d53 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sat, 15 Feb 2014 12:46:42 +0900
Subject: [PATCH] place `load` function under (scheme load) library

---
 src/load.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/load.c b/src/load.c
index 4ab25277..84fc7c29 100644
--- a/src/load.c
+++ b/src/load.c
@@ -58,5 +58,7 @@ pic_load_load(pic_state *pic)
 void
 pic_init_load(pic_state *pic)
 {
-  pic_defun(pic, "load", pic_load_load);
+  pic_deflibrary ("(scheme load)") {
+    pic_defun(pic, "load", pic_load_load);
+  }
 }