artyom-poptsov

#!/usr/bin/guile \
-e main -s
!#

;;; sscp.scm -- Scheme Secure Copy implementation.

;; Copyright (C) 2015 Artyom V. Poptsov <[email protected]>
;;
;; This program is free software: you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as

Metaxal

#lang racket/base

; One way to define a logger
(define lg (make-logger 'my-logger))
; Define a receiver for this logger, along with a log level
(define rc (make-log-receiver lg 'error)) ; also try with 'debug

; Another way to define a logger, with additional forms
(define-logger lg2)
(define rc2 (make-log-receiver lg2-logger 'debug))