smalltalk: doesNotUnderstand: + Message + 12 tests
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Has been cancelled
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Has been cancelled
This commit is contained in:
@@ -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.
|
||||
|
||||
Reference in New Issue
Block a user