unmaintained: fix <sliced-groups> to be <groups>.

db4
John Benediktsson 2014-01-12 09:50:44 -08:00
parent 7c93316fbe
commit 669eb2482c
1 changed files with 1 additions and 2 deletions

View File

@ -56,8 +56,7 @@ GENERIC: update-frame-buffer ( <frame-buffer> -- )
OLD LEN head-slice 0 NEW copy ] ;
: copy-pixels ( old-pixels old-width new-pixels new-width -- )
[ 16 * <sliced-groups> ] 2bi@
[ copy-row ] 2each ;
[ 16 * <groups> ] 2bi@ [ copy-row ] 2each ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!