add comp-test-silly-frame2 to test funcs

1 files changed, 8 insertions, 2 deletions

diff --git a/test/src/comp-test-funcs.el b/test/src/comp-test-funcs.el
index 3d8d3437bda..540170ea966 100644
--- a/test/src/comp-test-funcs.el
+++ b/test/src/comp-test-funcs.el
@@ -340,8 +340,8 @@
 
 ;; Non tested functions that proved just to be difficult to compile.
 
-(defun comp-test-callee (_ _) t)
-(defun comp-test-silly-frame (x)
+(defun comp-test-callee (_ __) t)
+(defun comp-test-silly-frame1 (x)
   (cl-case x
     (0 (comp-test-callee
         (pcase comp-tests-var1
@@ -349,4 +349,10 @@
           (2 2))
         3))))
 
+(defun comp-test-silly-frame2 (token)
+  (while c
+    (cl-case c
+      (?< 1)
+      (?> 2))))
+
 ;;; comp-test-funcs.el ends here