From 4435efa37c1e7afbd2c75fc2067f7e9bf58094e8 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 29 Nov 2025 12:35:39 +0000
Subject: work/command-line-tool: Avoid infinite recursion in matching floats.

---
 tests/work/command-line-tool.scm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'tests/work')

diff --git a/tests/work/command-line-tool.scm b/tests/work/command-line-tool.scm
index c008412..93b97d4 100644
--- a/tests/work/command-line-tool.scm
+++ b/tests/work/command-line-tool.scm
@@ -30,4 +30,8 @@
   'float
   (match-type 1 'float))
 
+(test-equal "match float to float"
+  'float
+  (match-type 1.3 'float))
+
 (test-end "work.command-line-tool")
-- 
cgit 1.4.1