cleaner accessor
parent
085e477a98
commit
0f929ba85a
|
@ -97,7 +97,7 @@ M: model update-model drop ;
|
|||
((change-model)) set-model ; inline
|
||||
|
||||
: (change-model) ( model quot -- )
|
||||
((change-model)) swap >>value drop ; inline
|
||||
((change-model)) (>>value) ; inline
|
||||
|
||||
GENERIC: range-value ( model -- value )
|
||||
GENERIC: range-page-value ( model -- value )
|
||||
|
|
Loading…
Reference in New Issue