Ludovic Courtès (2017-01-14 22:16 +0100) wrote:
>> +(define (uglify-field-name name)
>> + (match name
>> + ('verbosity "verb")
>> + (_ (let ((str (symbol->string name)))
>> + (if (string-suffix? "?" str)
>> + (substring str 0 (1- (string-length str)))
>> + str)))))
>
> Not sure why but indent-code.el got ‘match’ indentation wrong, although
> it works for me. Alex, any ideas?
Because 'scheme-mode' does not provide indentation rules for 'match'
(and many other keywords). Geiser indents 'match' properly for you.
--
Alex
