advent-of-code-2022/day-13/debug.scm

(library (debug)
  (export debug-peek)

  (import
   (except (rnrs base)
           let-values
           map
           error
           vector-map)
   (only (guile)
         lambda* λ
         simple-format
         current-output-port
         call-with-output-string))

  (define debug-peek
    (lambda* (sth #:optional (message ""))
      (let ([as-string
             (call-with-output-string
               (λ (port)
                 (simple-format port "~a" sth)))])
        (simple-format (current-output-port)
                       "~a~a\n"
                       message
                       as-string)
        sth))))