29 lines
878 B
Scheme
29 lines
878 B
Scheme
;; lab/core/logging.scm - Logging functionality
|
|
|
|
(define-module (lab core logging)
|
|
#:use-module (ice-9 format)
|
|
#:export (log-info
|
|
log-debug
|
|
log-success
|
|
log-error
|
|
log-warn))
|
|
|
|
(define (log-info format-str . args)
|
|
"Log info message"
|
|
(apply format #t (string-append "[INFO] " format-str "~%") args))
|
|
|
|
(define (log-debug format-str . args)
|
|
"Log debug message"
|
|
(apply format #t (string-append "[DEBUG] " format-str "~%") args))
|
|
|
|
(define (log-success format-str . args)
|
|
"Log success message"
|
|
(apply format #t (string-append "[SUCCESS] " format-str "~%") args))
|
|
|
|
(define (log-error format-str . args)
|
|
"Log error message"
|
|
(apply format #t (string-append "[ERROR] " format-str "~%") args))
|
|
|
|
(define (log-warn format-str . args)
|
|
"Log warning message"
|
|
(apply format #t (string-append "[WARN] " format-str "~%") args))
|