blob: 161c1b5b116080a44b79476d1b3980be8e6125f4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{ { defv }' scope }
<
/generate deffd
0 ==m # placeholder, zero value is never read
{ m .v -01 . }' [ 0 ] [ 0 ] '' /access deffd
{ =m access }' "#*" defmd
{ [ 0 ] }" "#in" deffd
{ [ 0 ] }" "#out" deffd
{ =m m .v keys }' "#dom" defmd
{ =m m .v ==v =*f v keys { v -01 . f }' each } "#each" defmd
{ 0 } "#istart" deffd
{ =m m .v keys len eq }' "#iend" defmd
{ 1 add }" "#istep" deffd
{ =m m .v keys * }' "#itrans" defmd
{ =m m .v -01 .?' }' /has defmd
{ =m m .v ==v "#iclone" | * ==n v keys { _ v -01 . -01 n =[] } each n }' /clone defmd
{ < generate ==v "#=[]" =* > }' _ "#iclone" deffd
> -- /map deffd
# vim: syn=elymas
|
