shithub: sl

ref: dc6306e051c74dfa60865db0cc0bbf11b37aaecf
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)