shithub: sl

ref: 96e08ec043ae59e7eec6707c9d410caa7fd114a5
dir: /test/crash.sl/

View raw version 
;; crashed previously

(def (f a (b NIL b-sup) (c NIL) . rest)
  (def (g x)
    (+ a x (or (and b-sup b) 0)))
  (let* {[y (car rest)]
         [x (or y c)]}
    (g x)))

(assert (= (f 0 0 0) 0))
(princ "b-supplied: ok") (newline)

(for 1 10 (λ (i) 0))
(princ "loop: ok") (newline)

(assert-fail (map - '(5) '("hi")))
(assert-fail (map + '(5) '("hi")))
(assert-fail (map / '(5) '("hi")))
(assert-fail (map * '(5) '("hi")))
(assert-fail (map bound? '(5) '("hi")))
(princ "failing map: ok") (newline)