place load function under (scheme load) library

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