st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-27 09:08:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Better infixes

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-01-14 03:30:17 +03:00
parent 92f60665df
commit 25ec856fba
11 changed files with 56 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

6
regression/test087.expr
View file

@ -1,6 +1,6 @@
local n;
infix "===" at "==" (v1, v2) {
infix === at == (v1, v2) {
local s1, s2, i;
s1 := v1.string;
@ -17,14 +17,14 @@ infix "===" at "==" (v1, v2) {
fi
}
infix "?" before "+" (v, l) {
infix ? before + (v, l) {
case l of
{} -> 0
| h : tl -> if h === v then 1 else (v ? tl) fi
esac
}
infix "+++" at "+" (l1, l2) {
infix +++ at + (l1, l2) {
case l1 of
{} -> l2
| h : tl -> (h : tl +++ l2)