summaryrefslogtreecommitdiff
path: root/t/t4018/scheme-lisp-defun-b
blob: 21be305968bf6b7e551b1b4388f377107242c598 (plain)
1
2
3
4
(macrolet ((foo (x) `(bar ,x)))
  (defun mumble (x) ; RIGHT
    (when (> x 0)
      (foo x)))) ; ChangeMe