Binsert support

diff --git a/src/comp.c b/src/comp.c
index f19fc84479bc23da5e2511835a4af7147851e2a2..134d1baabcdf91726df34bda04c309e36320d423 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -1945,7 +1945,8 @@ compile_f (const char *f_name, ptrdiff_t bytestr_length,
          break;
 
        case BinsertN:
-         error ("BinsertN not supported");
+         op = FETCH;
+         EMIT_SCRATCH_CALL_N ("Finsert", op);
          break;
 
        case Bstack_set:

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index f1acc42b8cafdd14e2086246dbe377a80198e47c..931b9e060942194a4ef43fa4ca57e88c454b4670 100644 (file)
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -314,12 +314,22 @@
     (1+ (let ((a 1)
             (_b)
             (_c))
-        a)))
+          a)))
+  (defun comp-tests-insertn-f (a b c d)
+    ;; Binsert
+    (insert a b c d))
 
   (byte-compile #'comp-tests-discardn-f)
   (native-compile #'comp-tests-discardn-f)
+  (byte-compile #'comp-tests-insertn-f)
+  (native-compile #'comp-tests-insertn-f)
 
-  (should (= (comp-tests-discardn-f 10) 2)))
+  (should (= (comp-tests-discardn-f 10) 2))
+
+  (should (string= (with-temp-buffer
+                      (comp-tests-insertn-f "a" "b" "c" "d")
+                      (buffer-string))
+                   "abcd")))
 
 (ert-deftest comp-tests-gc ()
   "Try to do some longer computation to let the gc kick in."