15 lines
337 B
Racket
15 lines
337 B
Racket
#lang scheme/base
|
|
(require "../../syntax.rkt")
|
|
|
|
(provide
|
|
label->plain-label)
|
|
|
|
(define/top (label->plain-label [string? s])
|
|
(regexp-replace* #rx"&(.)"
|
|
(regexp-replace
|
|
#rx"[(]&(.)[)] *"
|
|
(regexp-replace #rx"\t.*$" s "")
|
|
"\\1")
|
|
"\\1"))
|
|
|