debug: Add procedure debugging tools, lambda-utils: Add new library

2026-07-21 20:35:05 +03:00
parent 21cb73729d
commit f5260cea9c
12 changed files with 259 additions and 9 deletions
@@ -0,0 +1,12 @@
+
+(test-begin "lambda-utils")
+
+(define dl (default-lambda ((arg1 #f) (arg2 #f)) arg2))
+
+(test-assert (not (dl)))
+(test-equal 1 (dl '(arg2 1)))
+
+(define dcl (default-checked-lambda ((arg1 #f string?) (arg2 #f string?)) arg2))
+
+(test-assert (not (dcl)))
+(test-equal "hello" (dcl '(arg2 "hello")))