diff --git a/Makefile b/Makefile
index db5d45ba..89584c81 100644
--- a/Makefile
+++ b/Makefile
@@ -8,7 +8,6 @@ PICRIN_SRCS = \
 PICRIN_OBJS = \
 	$(PICRIN_SRCS:.c=.o)
 PICRIN_LIBS = \
-	piclib/picrin/base.scm\
 	piclib/picrin/macro.scm\
 	piclib/picrin/experimental/lambda.scm\
 	piclib/picrin/syntax-rules.scm\
diff --git a/piclib/picrin/base.scm b/piclib/picrin/base.scm
deleted file mode 100644
index f88c33ca..00000000
--- a/piclib/picrin/base.scm
+++ /dev/null
@@ -1,291 +0,0 @@
-(define-library (picrin base)
-
-  (export define
-          lambda
-          if
-          quote
-          set!
-          begin
-          define-macro)
-
-  (export syntax-error
-          define-syntax
-          let-syntax
-          letrec-syntax
-          syntax-quote
-          syntax-quasiquote
-          syntax-unquote
-          syntax-unquote-splicing)
-
-  (export let
-          let*
-          letrec
-          letrec*
-          quasiquote
-          unquote
-          unquote-splicing
-          and
-          or
-          cond
-          case
-          =>
-          else
-          do
-          when
-          unless)
-
-  (export let-values
-          let*-values
-          define-values)
-
-  (export eq?
-          eqv?
-          equal?)
-
-  (export undefined?)
-
-  (export boolean?
-          boolean=?
-          not)
-
-  (export symbol?
-          symbol->string
-          string->symbol
-          symbol=?)
-
-  (export char?
-          char->integer
-          integer->char
-          char=?
-          char<?
-          char>?
-          char<=?
-          char>=?)
-
-  (export number?
-          complex?
-          real?
-          rational?
-          integer?
-          exact?
-          inexact?
-          =
-          <
-          >
-          <=
-          >=
-          +
-          -
-          *
-          /
-          abs
-          floor/
-          truncate/
-          floor
-          ceiling
-          truncate
-          round
-          expt
-          number->string
-          string->number
-          finite?
-          infinite?
-          nan?
-          exp
-          log
-          sin
-          cos
-          tan
-          acos
-          asin
-          atan
-          sqrt)
-
-  (export pair?
-          cons
-          car
-          cdr
-          set-car!
-          set-cdr!
-          null?
-          caar
-          cadr
-          cdar
-          cddr)
-
-  (export list?
-          make-list
-          list
-          length
-          append
-          reverse
-          list-tail
-          list-ref
-          list-set!
-          list-copy
-          map
-          for-each
-          memq
-          memv
-          member
-          assq
-          assv
-          assoc)
-
-  (export bytevector?
-          bytevector
-          make-bytevector
-          bytevector-length
-          bytevector-u8-ref
-          bytevector-u8-set!
-          bytevector-copy
-          bytevector-copy!
-          bytevector-append
-          bytevector->list
-          list->bytevector)
-
-  (export vector?
-          vector
-          make-vector
-          vector-length
-          vector-ref
-          vector-set!
-          vector-copy!
-          vector-copy
-          vector-append
-          vector-fill!
-          vector-map
-          vector-for-each
-          list->vector
-          vector->list
-          string->vector
-          vector->string)
-
-  (export string?
-          string
-          make-string
-          string-length
-          string-ref
-          string-copy
-          string-append
-          string-map
-          string-for-each
-          string->list
-          list->string
-          string=?
-          string<?
-          string>?
-          string<=?
-          string>=?)
-
-  (export make-dictionary
-          dictionary?
-          dictionary
-          dictionary-ref
-          dictionary-set!
-          dictionary-size
-          dictionary-map
-          dictionary-for-each
-          dictionary->plist
-          plist->dictionary
-          dictionary->alist
-          alist->dictionary)
-
-  (export make-record
-          record?
-          record-type
-          record-ref
-          record-set!)
-
-  (export current-input-port
-          current-output-port
-          current-error-port
-
-          call-with-port
-
-          port?
-          input-port?
-          output-port?
-          textual-port?
-          binary-port?
-
-          port-open?
-          close-port
-
-          open-input-string
-          open-output-string
-          get-output-string
-          open-input-bytevector
-          open-output-bytevector
-          get-output-bytevector
-
-          eof-object?
-          eof-object
-
-          read-char
-          peek-char
-          char-ready?
-          read-line
-          read-string
-
-          read-u8
-          peek-u8
-          u8-ready?
-          read-bytevector
-          read-bytevector!
-
-          newline
-          write-char
-          write-string
-          write-u8
-          write-bytevector
-          flush-output-port)
-
-  (export make-parameter
-          parameterize)
-
-  (export make-identifier
-          identifier?
-          identifier-variable
-          identifier-environment
-
-          variable?
-          variable=?)
-
-  (export make-library
-          find-library
-          current-library
-          library-exports
-          library-environment)
-
-  (export call-with-current-continuation
-          call/cc
-          escape
-          dynamic-wind
-          values
-          call-with-values)
-
-  (export with-exception-handler
-          raise
-          raise-continuable
-          error
-          make-error-object
-          error-object?
-          error-object-message
-          error-object-irritants
-          error-object-type)
-
-  (export procedure?
-          apply
-          attribute)
-
-  (export read)
-
-  (export write
-          write-simple
-          write-shared
-          display)
-
-  (export eval)
-
-  (export features))