pit/test/horriblebindingbug.pit


1
2
3
4
5
6

(defun! broken (ops) nil)
(defun! test (ops)
  (let ((oldops ops))
    (broken 'foo)
    (assert! 'horriblebindingbug oldops ops)))
(test '(1 2 3))