resolve interreference between (picrin user) and (scheme *)

This commit is contained in:
Yuichi Nishiwaki 2014-09-20 12:23:52 +09:00
parent 527217e94a
commit 912d1237bc
3 changed files with 17 additions and 19 deletions

View File

@ -16,6 +16,23 @@
(define (add-history str)
#f))))
(eval
'(import (scheme base)
(scheme load)
(scheme process-context)
(scheme read)
(scheme write)
(scheme file)
(scheme inexact)
(scheme cxr)
(scheme lazy)
(scheme time)
(picrin macro)
(picrin dictionary)
(picrin array)
(picrin library))
'(picrin user))
(define (repl)
(let loop ((buf ""))
(let ((line (readline (if (equal? buf "") "> " "* "))))

View File

@ -7,6 +7,4 @@ list(APPEND PICLIB_SCHEME_LIBS
${PROJECT_SOURCE_DIR}/piclib/picrin/experimental/lambda.scm
${PROJECT_SOURCE_DIR}/piclib/picrin/syntax-rules.scm
${PROJECT_SOURCE_DIR}/piclib/picrin/test.scm
${PROJECT_SOURCE_DIR}/piclib/picrin/user.scm
)

View File

@ -1,17 +0,0 @@
; 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)
(picrin dictionary)
(picrin array)
(picrin library)))