altos/scheme: Add separate floor-quotient builtin

[fw/altos] / src / scheme / ao_scheme_builtin.txt

diff --git a/src/scheme/ao_scheme_builtin.txt b/src/scheme/ao_scheme_builtin.txt
index 23adf6eddbb276d74fcefbbdbf64607c5c9a6b7f..bdadbd6ac6d3705aa3a92593a791f5e8ce8a36a6 100644 (file)
--- 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>?