(xdef 'ssexpand (lambda (x)
                  (if (symbol? x) (expand-ssyntax x) x)))

From ac.scm ©