11 lines
450 B
Diff
11 lines
450 B
Diff
--- a/repl.k
|
|
+++ b/repl.k
|
|
@@ -1,6 +1,6 @@
|
|
#!k
|
|
`1:"ngn/k, (c) 2019-2021 ngn, GNU AGPLv3. type \\ for more info\n",repl.prompt:," "
|
|
-repl.cmds:(,"a")!{`1:1:repl.joinpath[repl.dirname`argv 0]"LICENSE";}
|
|
+repl.cmds:(,"a")!{`1:1:repl.joinpath[repl.dirname`argv 0]"../share/ngn-k/LICENSE";}
|
|
repl.dirname:{$[#x:"/"/-1_"/"\x;x;,"."]}
|
|
repl.joinpath:{$[x~,".";y;"/"~*|x;x,y;x,"/",y]}
|
|
repl.fmt:{$[x~(::);"";(`A~@x)&1<#x;"(",("\n "/`k'x),")\n";`k[x],"\n"]}
|