Merge pull request 'sync with ktye's k.h' (#87) from growler/k:ffiassgnvar into master

Reviewed-on: https://codeberg.org/ngn/k/pulls/87

2 files changed, 3 insertions, 3 deletions

diff --git a/k.c b/k.c
index 57be7304..a0064a59 100644
--- a/k.c
+++ b/k.c
@@ -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)
diff --git a/k.h b/k.h
index 2c81f17b..647e3b69 100644
--- a/k.h
+++ b/k.h
@@ -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));})