97jaz

#lang racket/base

(require racket/match
         racket/port
         syntax/parse/define
         (for-syntax racket/base))

(define (read-message inp)
 (match (read-byte inp)
   [#x00 (define payload-size (read-byte inp))

pmatos

#lang racket/base
;; ---------------------------------------------------------------------------------------------------
(require (for-syntax racket/base racket/string)
         racket/contract
         racket/require-syntax racket/provide-syntax
         racket/match
         racket/list
         syntax/parse/define
         racket/struct-info)

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))