diff --git a/CHANGELOG.md b/CHANGELOG.md index 7f879a9c..66084c24 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -1,5 +1,11 @@ # Changelog +## 0.31.0 - TBD + +Bug Fixes + +- Properly handle literal vectors at the top level of compiled code. + ## 0.30.0 - July 2, 2021 Features diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld index 491969a3..bf432073 100644 --- a/scheme/cyclone/transforms.sld +++ b/scheme/cyclone/transforms.sld @@ -597,6 +597,7 @@ if (acc) { ;; global may still be init'd to NULL if the order is incorrect in the "top level" ;; initialization code. (symbol? (car (define->exp (car top-lvl)))) ;; TODO: put these at the end of top-lvl??? + (vector? (car (define->exp (car top-lvl)))) (and (list? (car (define->exp (car top-lvl)))) (not (lambda? (car (define->exp (car top-lvl))))))) (loop (cdr top-lvl)