smalltalk: Conway Life + dynamic-array literal {…}; classic corpus complete

2026-04-25 07:31:47 +00:00
parent 7c5c49c529
commit 5ef07a4d8d
5 changed files with 218 additions and 2 deletions
--- a/lib/smalltalk/eval.sx
+++ b/lib/smalltalk/eval.sx
@@ -159,6 +159,15 @@
                    (fn (e) (append! out (smalltalk-eval-ast e frame)))
                    (get ast :elements))
                  out)))
+            ((= ty "dynamic-array")
+              ;; { e1. e2. ... } — each element is a full expression
+              ;; evaluated at runtime. Returns a fresh mutable array.
+              (let ((out (list)))
+                (begin
+                  (for-each
+                    (fn (e) (append! out (smalltalk-eval-ast e frame)))
+                    (get ast :elements))
+                  out)))
            ((= ty "lit-byte-array") (get ast :elements))
            ((= ty "self") (get frame :self))
            ((= ty "super") (get frame :self))