diff options
-rw-r--r-- | k.c | 4 | ||||
-rw-r--r-- | k.h | 2 |
2 files changed, 3 insertions, 3 deletions
@@ -14,8 +14,8 @@ K Kf(F v)_(af(v)) K KF(F*a ,N n)_(a?aV(tF,n,a):an(n,tF)) F K KL(K*a ,N n)_(a?aV(tA,n,a):aA(n)) V LK(K*a,K x){VK(tA,a,x);} K Kp(V*p)_(al((L)p)) -V KA(S s,K x){x=x(d8(A8(as(sym(s)),emp(tA),av,x),4));I(x,mr(x))} -V KR(S s,V*f,I n)_(KA(s,ax(f,n))) +V KA(K s,K x){x=x(d8(A8(s,emp(tA),av,x),4));I(x,mr(x))} +V KR(S s,V*f,I n)_(KA(Ks((char*)s),ax(f,n))) K KE(S s)_(err0(s)) K ref(K x)_(xR) @@ -5,6 +5,6 @@ #define WV #endif typedef long long K;typedef void V;typedef char C;typedef int I;typedef double F;typedef size_t N;typedef const C*S; -WV V kinit(),unref(K),CK(C*,K),IK(I*,K),FK(F*,K),LK(K*,K),*dK(K),KA(S/*todo*/,K),KR(S,V*,I);WV C TK(K),cK(K);WV N NK(K);WV I iK(K);WV F fK(K); +WV V kinit(),unref(K),CK(C*,K),IK(I*,K),FK(F*,K),LK(K*,K),*dK(K),KA(K,K),KR(S,V*,I);WV C TK(K),cK(K);WV N NK(K);WV I iK(K);WV F fK(K); WV K Kc(C),Ks(C*),Ki(I),Kf(F),KC(C*,N),KS(C**,N),KI(I*,N),KF(F*,N),ref(K),Kp(V*),KE(S),KL(K*,N),K0(K*,S,K*,I); #define Kx(s,a...) ({static K f;K0(&f,s,(K[]){a},sizeof((K[]){a})/sizeof(K));}) |