X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_builtin.txt;h=236cadb49c965c448372c2369dade72e7496d583;hb=00bf2ca86b60e6501880011897cea073865c5a03;hp=4c48433767646c26e5c924023b5c772aa447d090;hpb=cf5729a0bae51172f12fc9ec4339d4e975a45fcc;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_builtin.txt b/src/lisp/ao_lisp_builtin.txt
index 4c484337..236cadb4 100644
--- a/src/lisp/ao_lisp_builtin.txt
+++ b/src/lisp/ao_lisp_builtin.txt
@@ -13,7 +13,7 @@ nlambda		quote
 f_lambda	set
 macro		setq		set!
 nlambda		cond
-nlambda		progn
+nlambda		begin
 nlambda		while
 f_lexpr		write
 f_lexpr		display
@@ -31,7 +31,7 @@ f_lexpr		less_equal	<=
 f_lexpr		greater_equal	>=
 f_lambda	list_to_string		list->string
 f_lambda	string_to_list		string->list
-f_lambda	flush
+f_lambda	flush_output		flush-output
 f_lambda	delay
 f_lexpr		led
 f_lambda	save
@@ -42,7 +42,8 @@ f_lambda	nullp		null?
 f_lambda	not
 f_lambda	listp		list?
 f_lambda	pairp		pair?
-f_lambda	numberp		number?	integer?
+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!
@@ -58,3 +59,7 @@ 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