add incoming &rest arg support

1 files changed, 6 insertions, 7 deletions

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 7cf2a12f4a2..96362ecf6e5 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -164,13 +164,13 @@
   (should (equal (comp-tests-ffuncall-callee-optional-f 1 2 3) '(1 2 3 nil)))
   (should (equal (comp-tests-ffuncall-callee-optional-f 1 2) '(1 2 nil nil)))
 
-  ;; (defun comp-tests-ffuncall-callee-rest-f (a b &rest c)
-  ;;   (list a b c))
-  ;; (native-compile #'comp-tests-ffuncall-callee-rest-f)
+  (defun comp-tests-ffuncall-callee-rest-f (a b &rest c)
+    (list a b c))
+  (native-compile #'comp-tests-ffuncall-callee-rest-f)
 
-  ;; (should (equal (comp-tests-ffuncall-callee-rest-f 1 2) '(1 2 nil)))
-  ;; (should (equal (comp-tests-ffuncall-callee-rest-f 1 2 3) '(1 2 (3))))
-  ;; (should (equal (comp-tests-ffuncall-callee-rest-f 1 2 3 4) '(1 2 (3 4))))
+  (should (equal (comp-tests-ffuncall-callee-rest-f 1 2) '(1 2 nil)))
+  (should (equal (comp-tests-ffuncall-callee-rest-f 1 2 3) '(1 2 (3))))
+  (should (equal (comp-tests-ffuncall-callee-rest-f 1 2 3 4) '(1 2 (3 4))))
 
   (defun comp-tests-ffuncall-native-f ()
     "Call a primitive with no dedicate op."
@@ -291,7 +291,6 @@
     ;; Bgeq
     (>= x y))
 
-
   (native-compile #'comp-tests-eqlsign-f)
   (native-compile #'comp-tests-gtr-f)
   (native-compile #'comp-tests-lss-f)