move the repl source to under piclib
This commit is contained in:
parent
dd52dee01c
commit
2f7a51c096
|
@ -17,4 +17,7 @@ list(APPEND PICLIB_SCHEME_LIBS
|
|||
${PROJECT_SOURCE_DIR}/piclib/srfi/60.scm
|
||||
${PROJECT_SOURCE_DIR}/piclib/srfi/95.scm
|
||||
${PROJECT_SOURCE_DIR}/piclib/srfi/111.scm
|
||||
|
||||
${PROJECT_SOURCE_DIR}/piclib/picrin/user.scm
|
||||
${PROJECT_SOURCE_DIR}/piclib/picrin/repl.scm
|
||||
)
|
||||
|
|
|
@ -1,16 +1,3 @@
|
|||
(define-library (picrin user)
|
||||
(import (scheme base)
|
||||
(scheme load)
|
||||
(scheme process-context)
|
||||
(scheme read)
|
||||
(scheme write)
|
||||
(scheme file)
|
||||
(scheme inexact)
|
||||
(scheme cxr)
|
||||
(scheme lazy)
|
||||
(scheme time)
|
||||
(picrin macro)))
|
||||
|
||||
(define-library (picrin repl)
|
||||
(import (scheme base)
|
||||
(scheme read)
|
||||
|
@ -80,8 +67,3 @@
|
|||
(main-loop))))
|
||||
|
||||
(export repl))
|
||||
|
||||
(import (picrin repl))
|
||||
|
||||
(repl)
|
||||
|
|
@ -0,0 +1,14 @@
|
|||
; the default repl environment
|
||||
|
||||
(define-library (picrin user)
|
||||
(import (scheme base)
|
||||
(scheme load)
|
||||
(scheme process-context)
|
||||
(scheme read)
|
||||
(scheme write)
|
||||
(scheme file)
|
||||
(scheme inexact)
|
||||
(scheme cxr)
|
||||
(scheme lazy)
|
||||
(scheme time)
|
||||
(picrin macro)))
|
|
@ -13,7 +13,8 @@ main(int argc, char *argv[], char **envp)
|
|||
pic = pic_open(argc, argv, envp);
|
||||
|
||||
pic_try {
|
||||
pic_load(pic, "/Users/yuichi/workspace/picrin/tools/main.scm");
|
||||
pic_import(pic, pic_read_cstr(pic, "(picrin repl)"));
|
||||
pic_funcall(pic, "repl", pic_nil_value());
|
||||
}
|
||||
pic_catch {
|
||||
pic_print_backtrace(pic, pic->err);
|
||||
|
|
Loading…
Reference in New Issue