GENERIC: salary ( person -- n )
M: intern salary
- #! Intentional mistake.
+ ! Intentional mistake.
call-next-method ;
M: employee salary drop 24000 ;
M: executive salary call-next-method 2 * ;
M: ceo salary
- #! Intentional error.
+ ! Intentional error.
drop 5 call-next-method 3 * ;
[ salary ] must-infer