d6
/
modal
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed comparison of registers

This commit is contained in:
Devine Lu Linvega 2024-04-06 09:36:30 -07:00
parent 05a3c1b30f
commit 92bc8e2f4c
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
examples/test.modal
View File

@ -1,5 +1,4 @@
<> (a) (apple)
<> (b) (banana)
<> (apple banana) (fruit salad)
<> (eq ?x ?x) (#t)
<> (eq ?x ?y) (#f)
a b
(eq foo bar) (eq foo foo)

2
src/modal.c
View File

@ -36,7 +36,7 @@ static int
compare(char *a, char *b)
{
int i = 0, al = walk(a) - a, bl = walk(b) - b;
if(al != bl)
if(al != bl) return 0;
while(a[i] == b[i])
if(!a[i] || ++i >= al) return 1;
return 0;