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) <> (eq ?x ?x) (#t)
<> (b) (banana) <> (eq ?x ?y) (#f)
<> (apple banana) (fruit salad)
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) compare(char *a, char *b)
{ {
int i = 0, al = walk(a) - a, bl = walk(b) - 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]) while(a[i] == b[i])
if(!a[i] || ++i >= al) return 1; if(!a[i] || ++i >= al) return 1;
return 0; return 0;