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,29 @@
+(define-syntax default-lambda
+  (syntax-rules ()
+    ((_ ((arg default) ...) body ...)
+     (lambda args
+       (let ((arg default) ...)
+         (for-each
+           (lambda (item)
+             (when (equal? (car item) 'arg) (set! arg (cadr item))) ...)
+           args)
+         body ...)))))
+
+(define-syntax default-checked-lambda
+  (syntax-rules ()
+    ((_ ((arg default check) ...) body ...)
+     (lambda args
+       (let ((arg default) ...)
+         (for-each
+           (lambda (item)
+             (when (equal? (car item) 'arg)
+               (set! arg (cadr item))
+               (when (not (check arg))
+                 (error
+                   (string-append "argument: "
+                                  (symbol->string 'arg)
+                                  ", failed check: "
+                                  (symbol->string 'check)))))
+             ...)
+           args)
+         body ...)))))