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

Fixed bug with lambda mismatch

This commit is contained in:
Devine Lu Linvega 2024-04-26 08:05:21 -07:00
parent 927479bc44
commit d43eec77f3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/modal.c
View File

@ -148,6 +148,7 @@ apply_rule(Rule *r, char *s)
while(*s == ' ') s++;
if(*s == ')' && *(dst_ - 1) == ' ') dst_--;
}
printf("[%s]\n", r->a);
return write_rule(r, s, 0);
}
@ -216,7 +217,7 @@ rewrite(void)
if(c == '?' && s[1] == '(') {
cap = walk(s + 1), compile_rule(&lambda, -1, s + 2), s = cap;
while(*s == ' ') s++;
if(!apply_rule(&lambda, s)) write_rule(r, s, 0);
if(!apply_rule(&lambda, s)) write_rule(&lambda, s, 0);
return 1;
}
/* phase: match */
@ -240,7 +241,7 @@ main(int argc, char **argv)
return !printf("usage: modal [-vqn] source.modal\n");
for(i = 1; i < argc && *argv[i] == '-'; i++) {
switch(argv[i][1]) {
case 'v': /* version */ return !printf("Modal Interpreter, 25 Apr 2024.\n");
case 'v': /* version */ return !printf("Modal Interpreter, 26 Apr 2024.\n");
case 'q': /* quiet */ quiet = 1; break;
case 'n': /* infinite */ cycles = 0xffffffff; break;
}