smalltalk: doesNotUnderstand: + Message + 12 tests
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Has been cancelled

This commit is contained in:
2026-04-25 02:49:16 +00:00
parent 8b7b6ad028
commit 45147bd8a6
4 changed files with 172 additions and 15 deletions

View File

@@ -381,6 +381,16 @@
(st-class-define! "Dictionary" "Collection" (list))
;; Blocks / contexts
(st-class-define! "BlockClosure" "Object" (list))
;; Reflection support — Message holds the selector/args for a DNU send.
(st-class-define! "Message" "Object" (list "selector" "arguments"))
(st-class-add-method! "Message" "selector"
(st-parse-method "selector ^ selector"))
(st-class-add-method! "Message" "arguments"
(st-parse-method "arguments ^ arguments"))
(st-class-add-method! "Message" "selector:"
(st-parse-method "selector: aSym selector := aSym"))
(st-class-add-method! "Message" "arguments:"
(st-parse-method "arguments: anArray arguments := anArray"))
"ok")))
;; Initialise on load. Tests can re-bootstrap to reset state.