grokking simplicity and refactoring

packages/lab-tool/utils/logging/state.scm

@@ -0,0 +1,27 @@
+;; utils/logging/state.scm - Logging state management
+
+(define-module (utils logging state)
+  #:use-module (utils logging level)
+  #:export (get-current-log-level
+            set-log-level!
+            should-log?))
+
+;; Mutable state: Current log level
+(define current-log-level 'info)
+
+;; Impure function: Get current log level
+(define (get-current-log-level)
+  "Get current log level"
+  current-log-level)
+
+;; Impure function: Set log level with validation
+(define (set-log-level! level)
+  "Set current log level (with validation)"
+  (if (validate-log-level level)
+      (set! current-log-level level)
+      (error "Invalid log level" level)))
+
+;; Impure function: Check if message should be logged
+(define (should-log? level)
+  "Check if message should be logged at current level"
+  (should-log-pure current-log-level level))