remove picrin/base.scm
This commit is contained in:
parent
e05372d8a4
commit
c76690c4da
1
Makefile
1
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\
|
||||
|
|
|
@ -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))
|
Loading…
Reference in New Issue