Merge branch 'master' of ssh://git.gag.com/scm/git/fw/altos

1 files changed, 68 insertions, 0 deletions

diff --git a/src/scheme/ao_scheme_builtin.txt b/src/scheme/ao_scheme_builtin.txt
new file mode 100644
index 00000000..cb65e252
--- /dev/null
+++ b/src/scheme/ao_scheme_builtin.txt
@@ -0,0 +1,68 @@
+f_lambda	eval
+f_lambda	read
+nlambda		lambda
+nlambda		nlambda
+nlambda		macro
+f_lambda	car
+f_lambda	cdr
+f_lambda	cons
+f_lambda	last
+f_lambda	length
+nlambda		quote
+atom		quasiquote
+atom		unquote
+atom		unquote_splicing	unquote-splicing
+f_lambda	set
+macro		setq		set!
+f_lambda	def
+nlambda		cond
+nlambda		begin
+nlambda		while
+f_lambda	write
+f_lambda	display
+f_lambda	plus		+
+f_lambda	minus		-
+f_lambda	times		*
+f_lambda	divide		/
+f_lambda	modulo		modulo	%
+f_lambda	remainder
+f_lambda	quotient
+f_lambda	equal		=	eq?	eqv?
+f_lambda	less		<
+f_lambda	greater		>
+f_lambda	less_equal	<=
+f_lambda	greater_equal	>=
+f_lambda	list_to_string		list->string
+f_lambda	string_to_list		string->list
+f_lambda	flush_output		flush-output
+f_lambda	delay
+f_lambda	led
+f_lambda	save
+f_lambda	restore
+f_lambda	call_cc		call-with-current-continuation	call/cc
+f_lambda	collect
+f_lambda	nullp		null?
+f_lambda	not
+f_lambda	listp		list?
+f_lambda	pairp		pair?
+f_lambda	integerp	integer? exact? exact-integer?
+f_lambda	numberp		number? real?
+f_lambda	booleanp	boolean?
+f_lambda	set_car		set-car!
+f_lambda	set_cdr		set-cdr!
+f_lambda	symbolp		symbol?
+f_lambda	symbol_to_string	symbol->string
+f_lambda	string_to_symbol	string->symbol
+f_lambda	stringp		string?
+f_lambda	procedurep	procedure?
+lambda		apply
+f_lambda	read_char	read-char
+f_lambda	write_char	write-char
+f_lambda	exit
+f_lambda	current_jiffy	current-jiffy
+f_lambda	current_second	current-second
+f_lambda	jiffies_per_second	jiffies-per-second
+f_lambda	finitep		finite?
+f_lambda	infinitep	infinite?
+f_lambda	inexactp	inexact?
+f_lambda	sqrt