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

Fixed issue with ?~ register

This commit is contained in:
Devine Lu Linvega 2024-04-14 17:41:22 -07:00
parent b5b6472ebc
commit 8705ebebc6
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
examples/hello.modal
View File

@ -1,4 +1,5 @@
<> (NAME) (Modal)
<> (?: print $) (?:)
<> ($ ?x) (?x $)
<> (listen ?~) (?~ done.) $ (Welcome to NAME \nHave fun!\n\n) print
foo listen stdin bar

2
src/modal.c
View File

@ -50,7 +50,7 @@ put_reg(char r)
*outp_++ = '?', *outp_++ = r; *outp_++ = '?', *outp_++ = r;
return; return;
} }
*ss = walk(s); ss = walk(s);
if(r == '*') { if(r == '*') {
if(*s == '(') { /* special implode */ if(*s == '(') { /* special implode */
while(s < ss && (c = *s++)) while(s < ss && (c = *s++))