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

Fixed issue with inline rule definition

This commit is contained in:
Devine Lu Linvega 2024-04-06 17:59:54 -07:00
parent 8b8cc103e0
commit 8a94adc1c3
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/test.modal
View File

@ -1,5 +1,3 @@
<> (?x dup) (?x ?x)
<> (?x ?y swap) (?y ?x)
<> ( ?x pop) ()
<> ((eval ?x)) (?x)
(1 2 3) (4 5 6) swap pop dup
(eval (<> (join (?x) (?y)) (?x ?y))) (join (foo) (bar))

2
src/modal.c
View File

@ -154,7 +154,7 @@ rewrite(char *incoming)
while((c = *p)) {
int i;
if(p[0] == '<' && p[1] == '>') {
p = addrule(p) + 1;
p = addrule(p);
while((*outp_++ = *p++))
;
save(-1);