(xdef 'scar (lambda (x val) (if (string? x) (string-set! x 0 val) (set-car! x val)) val))
From ac.scm ©
ac.scm