sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Runtime type checking for comparison ops. 

Because we're using Scheme Booleans for Thun Booleans there's no need to
make a special function for these, we can reuse the one for math ops.
This commit is contained in:
sforman 2023-10-21 12:17:21 -07:00
parent 6bd9249f83
commit 35a122b2ba
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
implementations/scheme-chicken/joy.scm
View File

@ -63,12 +63,12 @@
((/ div) (values (joy-math-func quotient stack) expression dict)) ; but for negative divisor, no!? ((/ div) (values (joy-math-func quotient stack) expression dict)) ; but for negative divisor, no!?
((% mod) (values (joy-math-func modulo stack) expression dict)) ((% mod) (values (joy-math-func modulo stack) expression dict))
((< lt) (joy-func < stack expression dict)) ((< lt) (values (joy-math-func < stack) expression dict))
((> gt) (joy-func > stack expression dict)) ((> gt) (values (joy-math-func > stack) expression dict))
((<= le) (joy-func <= stack expression dict)) ((<= le) (values (joy-math-func <= stack) expression dict))
((>= ge) (joy-func >= stack expression dict)) ((>= ge) (values (joy-math-func >= stack) expression dict))
((= eq) (joy-func = stack expression dict)) ((= eq) (values (joy-math-func = stack) expression dict))
((<> != neq) (joy-func not-equal stack expression dict)) ((<> != neq) (values (joy-math-func not-equal stack) expression dict))
((bool) (joy-bool stack expression dict)) ((bool) (joy-bool stack expression dict))