place `load` function under (scheme load) library

2014-02-15 12:46:42 +09:00 · 2014-02-15 12:46:42 +09:00 · da7ec5b64f
parent 95fae80658
commit da7ec5b64f
1 changed files with 3 additions and 1 deletions
--- 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);
+  }
 }