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 14f279a43a5acde2ed70f3d8200795fcaa47f096..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>?
@@ -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!