Dynamic PEG definition

; Switch language to PEG ggg = ("A" -> #"a" | .) gstart = ggg*:x -> `(,(->string x)) ; Switch language to blank (add-translator 'GGG (make-translator gstart)) ; Switch language to GGG ABC