Поправљен баг у >= и <= функцијама

This commit is contained in:
kappa 2019-12-23 16:13:42 +01:00
parent cbb8417c9d
commit 51f4602800

View file

@ -128,7 +128,7 @@
(или (примени > аргументи) (примени = аргументи)))
(#и (и
(>= (сар аргументи) (садр аргументи))
(примени >= (сддр аргументи))))))
(примени >= (сдр аргументи))))))
(опиши (<= . аргументи)
@ -138,7 +138,7 @@
(или (примени < аргументи) (примени = аргументи)))
(#и (и
(<= (сар аргументи) (садр аргументи))
(примени <= (сддр аргументи))))))
(примени <= (сдр аргументи))))))
(опиши (цео-број? џ)
(= (именилац (нетачно->тачно џ)) 1))