X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_builtin.txt;h=bdadbd6ac6d3705aa3a92593a791f5e8ce8a36a6;hb=7b5892f75a75363a656ede8befb419245aa218b5;hp=14f279a43a5acde2ed70f3d8200795fcaa47f096;hpb=d8c9024f3829dc3f241b16869f165f3ee01764f3;p=fw%2Faltos

diff --git a/src/scheme/ao_scheme_builtin.txt b/src/scheme/ao_scheme_builtin.txt
index 14f279a4..bdadbd6a 100644
--- a/src/scheme/ao_scheme_builtin.txt
+++ b/src/scheme/ao_scheme_builtin.txt
@@ -31,6 +31,7 @@ all	f_lambda	divide		/
 all	f_lambda	modulo		modulo	%
 all	f_lambda	remainder
 all	f_lambda	quotient
+all	f_lambda	floor_quotient	floor-quotient
 all	f_lambda	equal		=	eq?	eqv?
 all	f_lambda	less		<	string<?
 all	f_lambda	greater		>	string>?
@@ -47,7 +48,7 @@ all	f_lambda	nullp		null?
 all	f_lambda	not
 all	f_lambda	listp		list?
 all	f_lambda	pairp		pair?
-FLOAT	f_lambda	integerp	integer? exact? exact-integer?
+all	f_lambda	integerp	integer? exact? exact-integer?
 all	f_lambda	numberp		number? real?
 all	f_lambda	booleanp	boolean?
 all	f_lambda	set_car		set-car!