cleaner accessor

db4
Doug Coleman 2008-08-29 16:50:31 -05:00
parent 085e477a98
commit 0f929ba85a
1 changed files with 1 additions and 1 deletions

View File

@ -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 )