added afind primitive

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 8421b16..0f87ec3 100644 (file)
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1598,6 +1598,12 @@
     "if (i < 0 || i >= x.length) throw 'Out of range';" *newline*
     "return x[i] = " value ";" *newline*))
 
+(define-builtin afind (value array)
+  (js!selfcall
+    "var v = " value ";" *newline*
+    "var x = " array ";" *newline*
+    "return x.indexOf(v);" *newline*))
+
 (define-builtin get-internal-real-time ()
   "(new Date()).getTime()")