Hello,
I'm wondering why this is not running as expected?
(for @Cls '(+A +B)
(run
(fill
'((class @Cls)
(println 'define '@Cls) # prints: "define +A", then "define +B"
(dm c> () (println (type This) 'default))
(c> (new '(+A))) # prints: "(+A) default" - correct
(
Hi Kevin,
> I'm wondering why this is not running as expected?
>
> (for @Cls '(+A +B)
> (run
> (fill
> '((class @Cls)
> (println 'define '@Cls) # prints: "define +A", then "define +B"
> (dm c> () (println (type This) 'default))
> ..
> (extend +B)
> (dm c> () (print
Thanks Alex! It makes sense now. Normally, I would use a superclass but
it's in the context of a component system so there's no inheritance (just
polymorphism).
--Kevin
On Wed, Jun 22, 2022 at 8:12 AM Alexander Burger
wrote:
> Hi Kevin,
>
> > I'm wondering why this is not running as expected?
>