fix place-message-allowed? on an empty vector

2019-04-30 17:02:07 -06:00 · 2019-04-30 17:02:07 -06:00 · 164442ab26
commit 164442ab26
parent 436f3d8f64
2 changed files with 3 additions and 1 deletions
--- a/pkgs/racket-test-core/tests/racket/place.rktl
+++ b/pkgs/racket-test-core/tests/racket/place.rktl
@ -100,6 +100,7 @@
  (test #t place-message-allowed? v)
  (test #t place-message-allowed? (list v))
  (test #t place-message-allowed? (vector v)))
+(test #t place-message-allowed? (vector))

 (for ([v (list (lambda () 10)
               add1)])
--- a/racket/src/racket/src/place.c
+++ b/racket/src/racket/src/place.c
@ -1655,7 +1655,8 @@ DEEP_VEC2:
      if (set_mode) {
        SCHEME_SET_IMMUTABLE(vec);
        new_so = vec;
-      }
+      } else
+        new_so = vec;
      RETURN;
      break;