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

This commit is contained in:
Petar Kapriš 2019-12-23 16:13:42 +01:00 committed by Petar Kapriš
parent e27b3ed348
commit 4e1fdedfbf

View file

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