zamora

#lang racket/base
(require quickscript racket/string)

(define prefix-rx #px"^\\s*;+\\s*")
(define fill-column 78)

(define (determine-prefix line)
  (define m (regexp-match prefix-rx line))
  (if m (car m) ""))