]> gitweb.factorcode.org Git - factor.git/blobdiff - unmaintained/frame-buffer/frame-buffer.factor
tools.test: Make the flag public. Finish porting tester changes to fuzzer.
[factor.git] / unmaintained / frame-buffer / frame-buffer.factor
index 708c0d8bd482ec4026cd1a77e4e11af911dab364..e8137feb01b8592fae41420ee9ae9cc5bfe4d676 100644 (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 ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!