From 4cc1374786dcc28b80da546e708f7360f102abd4 Mon Sep 17 00:00:00 2001
From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 5 Oct 2019 16:05:37 +0200
Subject: [PATCH] add comp-test-silly-frame2 to test funcs

---
 test/src/comp-test-funcs.el | 10 ++++++++--
 1 file 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
-- 
2.39.5