(define (break-barline glyph dir)
(let ((result (assoc glyph
'((":|:" . (":|" . "|:"))
+ (";|;" . ("|." . ".|"))
("|" . ("|" . ""))
("|s" . (nil . "|"))
("|:" . ("|" . "|:"))
+ (".|" . ("|" . ".|"))
("|." . ("|." . nil))
(":|" . (":|" . nil))
("||" . ("||" . nil))