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

(extend +B)
(dm c> () (println (type This) 'extended)) # prints: "c> +B redefined"

(c> (new '(+B))) # prints: "(+B) extended" - correct
(c> (new '(+A))) # prints: "(+A) extended" - incorrect


It appears, extending +B  extends +A also.

--Kevin

Reply via email to