grokking simplicity and refactoring

packages/lab-tool/utils/json/parse.scm

@@ -0,0 +1,21 @@
+;; utils/json/parse.scm - Pure JSON parsing functions
+
+(define-module (utils json parse)
+  #:use-module (json)
+  #:export (json-string->scm-safe
+            parse-json-pure))
+
+;; Pure function: Safely parse JSON string
+;; Input: json-string
+;; Output: parsed scheme object or #f if invalid
+(define (parse-json-pure json-string)
+  "Pure function to parse JSON string without side effects"
+  (catch #t
+    (lambda () 
+      (if (string? json-string)
+          (json-string->scm json-string)
+          #f))
+    (lambda (key . args) #f)))
+
+;; Alias for compatibility
+(define json-string->scm-safe parse-json-pure)