delete null.scm, move declarations to r5rs.scm

This commit is contained in:
Yuichi Nishiwaki 2014-09-15 16:46:22 +09:00
parent 9eb938ff87
commit ec0f9a952b
3 changed files with 13 additions and 14 deletions

View File

@ -9,7 +9,6 @@ list(APPEND PICLIB_SCHEME_LIBS
${PROJECT_SOURCE_DIR}/piclib/picrin/test.scm
${PROJECT_SOURCE_DIR}/piclib/scheme/base.scm
${PROJECT_SOURCE_DIR}/piclib/scheme/cxr.scm
${PROJECT_SOURCE_DIR}/piclib/scheme/read.scm
${PROJECT_SOURCE_DIR}/piclib/scheme/write.scm
@ -22,7 +21,6 @@ list(APPEND PICLIB_SCHEME_LIBS
${PROJECT_SOURCE_DIR}/piclib/scheme/process-context.scm
${PROJECT_SOURCE_DIR}/piclib/scheme/time.scm
${PROJECT_SOURCE_DIR}/piclib/scheme/r5rs.scm
${PROJECT_SOURCE_DIR}/piclib/scheme/null.scm
${PROJECT_SOURCE_DIR}/piclib/srfi/1.scm
${PROJECT_SOURCE_DIR}/piclib/srfi/8.scm

View File

@ -1,12 +0,0 @@
(define-library (scheme null)
(import (scheme base))
(export define
lambda
if
quote
quasiquote
unquote
unquote-splicing
begin
set!
define-syntax))

View File

@ -9,6 +9,19 @@
(scheme eval)
(scheme load))
(define-library (scheme null)
(import (scheme base))
(export define
lambda
if
quote
quasiquote
unquote
unquote-splicing
begin
set!
define-syntax))
(define (null-environment n)
(if (not (= n 5))
(error "unsupported environment version" n)