Implement replicate first and last ⌿ /

1 files changed, 9 insertions, 0 deletions

diff --git a/quadnames.c b/quadnames.c
index 2646840..467e0a6 100644
--- a/quadnames.c
+++ b/quadnames.c
@@ -17,6 +17,7 @@ Array *runfile(Array *);
 Array *quadthrow1(Array *);
 Array *quadthrow2(Array *, Array *);
 Array *quadinfo(Array *);
+Array *quadproto(Array *);
 
 QuadnameDef quadnames[] = {
 	{L"⎕", NameTag, getquad, setquad, nil, nil},
@@ -26,6 +27,7 @@ QuadnameDef quadnames[] = {
 	{L"⎕RUN", FunctionTag, nil, nil, runfile, nil},
 	{L"⎕THROW", FunctionTag, nil, nil, quadthrow1, quadthrow2},
 	{L"⎕INFO", FunctionTag, nil, nil, quadinfo, nil},
+	{L"⎕PROTO", FunctionTag, nil, nil, quadproto, nil},
 	{nil, 0, nil, nil, nil, nil} /* MUST BE LAST */
 };
 
@@ -225,4 +227,11 @@ quadinfo(Array *a)
 	free(res);
 	free(info);
 	return infoarr;
+}
+
+/* ⎕PROTO */
+Array *
+quadproto(Array *a)
+{
+	return fillelement(a);
 }
\ No newline at end of file