Tests crash on SRFI-133

[jpellegrini]

Hi @egallesio !

Looks like the recent changes broke something...

==== Testing SRFIs  ...                                          
      1    2    4    5    9   13   14   15   17   19   25   26
     27   28   29   35   36   37   41   43   48   51   54   60
     62   64   70   74   87   89   94   95  100  113  116  117
    118  125  127  128  129  130  132  133**** Error while executing command ("do-test.stk")
     Where: in %smallest-length
    Reason: `vector-map!': bad vector `#(1 2 3 4 5)'

  - %smallest-length
  - <<let/call>>
  - vector-map!
  - %execute
  - #[closure 7f9c2eed6500]
  - %call-for-values
  - <<let/call>>
  - call-with-values
  - dynamic-wind
  - try-load
  - ...

This is SRFI-133. Before crashing, it also failed some tests:

  testing vectors/constructors 9 expects #(1 2 3 4) ==> ERROR: got #(fail).
...
  testing vectors/predicates 1 expects #f ==> ERROR: got #(fail).
  testing vectors/predicates 2 expects #f ==> ERROR: got #(fail).
  testing vectors/predicates 3 expects #f ==> ERROR: got #(fail).
  testing vectors/predicates 4 expects #t ==> ERROR: got #(fail).

[jpellegrini]

Sorry about the noise, it was some leftover in my git checkout. It's actually working fine!

[egallesio]

No problem @jpellegrini.