coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

smalltalk: SUnit port (TestCase/TestSuite/TestResult/TestFailure) + 19 tests
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Has been cancelled
Details

Browse Source
This commit is contained in:
giles
2026-04-25 13:43:18 +00:00
parent fa600442d6
commit 0ca664b81c
5 changed files with 380 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
lib/smalltalk/runtime.sx
View File

@@ -482,6 +482,25 @@
;; (no asString here — Symbol/String have their own primitive
;; impls; SequenceableCollection-level fallback would overwrite
;; the bare-name-for-Symbol behaviour.)
;; Array class-side constructors for small fixed-arity literals.
(st-class-add-class-method! "Array" "with:"
(st-parse-method
"with: x | a | a := Array new: 1. a at: 1 put: x. ^ a"))
(st-class-add-class-method! "Array" "with:with:"
(st-parse-method
"with: a with: b
| r | r := Array new: 2.
r at: 1 put: a. r at: 2 put: b. ^ r"))
(st-class-add-class-method! "Array" "with:with:with:"
(st-parse-method
"with: a with: b with: c
| r | r := Array new: 3.
r at: 1 put: a. r at: 2 put: b. r at: 3 put: c. ^ r"))
(st-class-add-class-method! "Array" "with:with:with:with:"
(st-parse-method
"with: a with: b with: c with: d
| r | r := Array new: 4.
r at: 1 put: a. r at: 2 put: b. r at: 3 put: c. r at: 4 put: d. ^ r"))
;; ── HashedCollection / Set / Dictionary ──
;; Implemented as user instances with array-backed storage. Sets
;; use a single `array` ivar; Dictionaries use parallel `keys`/