place `load` function under (scheme load) library

This commit is contained in:
Yuichi Nishiwaki 2014-02-15 12:46:42 +09:00
parent 95fae80658
commit da7ec5b64f
1 changed files with 3 additions and 1 deletions

View File

@ -58,5 +58,7 @@ pic_load_load(pic_state *pic)
void void
pic_init_load(pic_state *pic) pic_init_load(pic_state *pic)
{ {
pic_defun(pic, "load", pic_load_load); pic_deflibrary ("(scheme load)") {
pic_defun(pic, "load", pic_load_load);
}
} }