smalltalk: HashedCollection/Set/Dictionary/IdentityDictionary + 29 tests

2026-04-25 11:27:00 +00:00
parent 3be722d5b6
commit 496447ae36
4 changed files with 330 additions and 2 deletions
--- a/lib/smalltalk/eval.sx
+++ b/lib/smalltalk/eval.sx
@@ -855,6 +855,8 @@
            (fn (e) (st-block-apply (nth args 0) (list e)))
            a)
          a))
+      ((= selector "add:")
+        (begin (append! a (nth args 0)) (nth args 0)))
      ((= selector "collect:")
        (map (fn (e) (st-block-apply (nth args 0) (list e))) a))
      ((= selector "select:")