;; substitution (define-macro (subst e . args) (if (list? e) (list 'quote (apply scmcas 'subst e args)) (list 'quote (apply scmcas 'subst (eval e) args))))