grokking simplicity and refactoring

packages/lab-tool/core/utils.scm

@@ -0,0 +1,12 @@
+;; lab/core/utils.scm - Utility functions
+
+(define-module (lab core utils)
+  #:use-module (ice-9 format)
+  #:export (with-spinner))
+
+(define (with-spinner message proc)
+  "Execute procedure with spinner (stub implementation)"
+  (display (format #f "~a..." message))
+  (let ((result (proc)))
+    (display " done.\n")
+    result))