summaryrefslogtreecommitdiff
path: root/functions.c
diff options
context:
space:
mode:
Diffstat (limited to 'functions.c')
-rw-r--r--functions.c8
1 files changed, 7 insertions, 1 deletions
diff --git a/functions.c b/functions.c
index f2b0d83..09e4917 100644
--- a/functions.c
+++ b/functions.c
@@ -106,7 +106,7 @@ fndyad dyadfunctiondefs[] = {
0, /* ∪ */
0, /* ∩ */
0, /* ~ */
- 0, /* , */
+ fnCatenateLast, /* , */
fnCatenateFirst, /* ⍪ */
fnReshape, /* ⍴ */
0, /* ⌽ */
@@ -1034,6 +1034,12 @@ fnIndex(Array *left, Array *right)
}
Array *
+fnCatenateLast(Array *left, Array *right)
+{
+ return rundfn(L"⍉(⍉⍺)⍪⍉⍵", left, right);
+}
+
+Array *
fnCatenateFirst(Array *left, Array *right)
{
Array *leftarr = nil;