[hop] ‘take’ doesn’t validate its arguments

[Ludovic Courtès]

Here’s the problem:

--8<---------------cut here---------------start------------->8---
(module foo (library srfi1))
(take '(a b) 3)
--8<---------------cut here---------------end--------------->8---

and:

--8<---------------cut here---------------start------------->8---
$ hop t.hop
Segmentation violation
    1. eval, t.hop:1
--8<---------------cut here---------------end--------------->8---

Thanks,
Ludo’.