resolve interreference between (picrin user) and (scheme *)
This commit is contained in:
parent
527217e94a
commit
912d1237bc
|
@ -16,6 +16,23 @@
|
||||||
(define (add-history str)
|
(define (add-history str)
|
||||||
#f))))
|
#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)
|
(define (repl)
|
||||||
(let loop ((buf ""))
|
(let loop ((buf ""))
|
||||||
(let ((line (readline (if (equal? buf "") "> " "* "))))
|
(let ((line (readline (if (equal? buf "") "> " "* "))))
|
||||||
|
|
|
@ -7,6 +7,4 @@ list(APPEND PICLIB_SCHEME_LIBS
|
||||||
${PROJECT_SOURCE_DIR}/piclib/picrin/experimental/lambda.scm
|
${PROJECT_SOURCE_DIR}/piclib/picrin/experimental/lambda.scm
|
||||||
${PROJECT_SOURCE_DIR}/piclib/picrin/syntax-rules.scm
|
${PROJECT_SOURCE_DIR}/piclib/picrin/syntax-rules.scm
|
||||||
${PROJECT_SOURCE_DIR}/piclib/picrin/test.scm
|
${PROJECT_SOURCE_DIR}/piclib/picrin/test.scm
|
||||||
|
|
||||||
${PROJECT_SOURCE_DIR}/piclib/picrin/user.scm
|
|
||||||
)
|
)
|
||||||
|
|
|
@ -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)))
|
|
Loading…
Reference in New Issue