From 24a89196c1e4a9c7a32c6ba4849da69b29d81d3b Mon Sep 17 00:00:00 2001
From: BlackBeans <adrien.lc.mathieu@gmail.com>
Date: Sun, 27 Nov 2022 10:36:46 +0100
Subject: [PATCH] Added `.j` extension.

---
 jsrc/xs.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/jsrc/xs.c b/jsrc/xs.c
index 70535d1bb..0284b511b 100644
--- a/jsrc/xs.c
+++ b/jsrc/xs.c
@@ -125,7 +125,10 @@ static A jtlinf(J jt,A a,A w,C ce,B tso){A x,y,z;B lk=0;C*s;I i=-1,n,oldi=jt->cu
  if(JT(jt,seclev)){
   y=C(AAV(w)[0]); n=AN(y); s=CAV(y); 
   ASSERT(LIT&AT(y),EVDOMAIN); 
-  ASSERT(3<n&&!memcmpne(s+n-3,".js",3L)||4<n&&!memcmpne(s+n-4,".ijs",4L),EVSECURE);
+  ASSERT(3<n&&!memcmpne(s+n-3,".js",3L)
+	 ||4<n&&!memcmpne(s+n-4,".ijs",4L)
+	 ||2<n&&!memcmpne(s+n-2,".j",2L),
+	 EVSECURE);
  }
  RZ(x=jfread(w));
  // Remove UTF8 BOM if present - commented out pending resolution.  Other BOMs should not occur