conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

reorder base.scm

This commit is contained in:
Yuichi Nishiwaki 2014-09-05 03:08:11 +09:00
parent 6f40dcc5df
commit 268191d1c5
1 changed files with 87 additions and 85 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

172
piclib/picrin/base.scm
View File

@ -1,20 +1,12 @@
(define-library (picrin base) (define-library (picrin base)
(export define (export define
set!
quote
lambda lambda
if if
quote
set!
begin begin
define-syntax) define-syntax)
(export bytevector?
make-bytevector
bytevector-length
bytevector-u8-ref
bytevector-u8-set!
bytevector-copy!
bytevector-append)
(export eq? (export eq?
eqv? eqv?
equal?) equal?)
@ -23,38 +15,15 @@
boolean=? boolean=?
not) not)
(export symbol?
symbol->string
string->symbol
symbol=?)
(export char? (export char?
char->integer char->integer
integer->char) integer->char)
(export call-with-current-continuation
continue
dynamic-wind
values
call-with-values)
(export make-dictionary
dictionary?
dictionary-ref
dictionary-set!
dictionary-delete
dictionary-size
dictionary-for-each)
(export with-exception-handler
raise
raise-continuable
error
error-object?
error-object-message
error-object-irritants
read-error?
file-error?)
(export identifier?
identifier=?
make-identifier)
(export number? (export number?
complex? complex?
real? real?
@ -139,6 +108,55 @@
assv assv
assoc) assoc)
(export bytevector?
make-bytevector
bytevector-length
bytevector-u8-ref
bytevector-u8-set!
bytevector-copy!
bytevector-append)
(export vector?
make-vector
vector-length
vector-ref
vector-set!
vector-copy!
vector-copy
vector-append
vector-fill!
list->vector
vector->list)
(export string?
make-string
string-length
string-ref
string-set!
string=?
string<?
string>?
string<=?
string>=?
string-copy
string-copy!
string-append
string-fill!)
(export make-dictionary
dictionary?
dictionary-ref
dictionary-set!
dictionary-delete
dictionary-size
dictionary-for-each)
(export make-record
record?
record-type
record-ref
record-set!)
(export current-input-port (export current-input-port
current-output-port current-output-port
current-error-port current-error-port
@ -160,13 +178,15 @@
open-output-bytevector open-output-bytevector
get-output-bytevector get-output-bytevector
read-char
peek-char
read-line
eof-object? eof-object?
eof-object eof-object
read-char
peek-char
char-ready? char-ready?
read-line
read-string read-string
read-u8 read-u8
peek-u8 peek-u8
u8-ready? u8-ready?
@ -180,6 +200,32 @@
write-bytevector write-bytevector
flush-output-port) flush-output-port)
(export make-parameter
parameter-ref
parameter-set!
parameter-push!
parameter-pop!)
(export identifier?
identifier=?
make-identifier)
(export call-with-current-continuation
continue
dynamic-wind
values
call-with-values)
(export with-exception-handler
raise
raise-continuable
error
error-object?
error-object-message
error-object-irritants
read-error?
file-error?)
(export procedure? (export procedure?
apply apply
map map
@ -188,50 +234,6 @@
(export read) (export read)
(export make-record
record?
record-type
record-ref
record-set!)
(export string?
make-string
string-length
string-ref
string-set!
string=?
string<?
string>?
string<=?
string>=?
string-copy
string-copy!
string-append
string-fill!)
(export symbol?
symbol->string
string->symbol
symbol=?)
(export make-parameter
parameter-ref
parameter-set!
parameter-push!
parameter-pop!)
(export vector?
make-vector
vector-length
vector-ref
vector-set!
vector-copy!
vector-copy
vector-append
vector-fill!
list->vector
vector->list)
(export write (export write
write-simple write-simple
write-shared write-shared