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

diff --git a/src/scheme/ao_scheme_builtin.txt b/src/scheme/ao_scheme_builtin.txt
index 23adf6ed..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>?