remove picrin/base.scm

This commit is contained in:
Yuichi Nishiwaki 2015-07-09 02:10:02 +09:00
parent e05372d8a4
commit c76690c4da
2 changed files with 0 additions and 292 deletions

View File

@ -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\

View File

@ -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))