gpu.shaders: '[ empty? not ] filter' is 'harvest'

2009-10-23 07:02:11 -05:00 · 2009-10-23 07:02:11 -05:00 · 00cef34d74
parent 1e13f94e9f
commit 00cef34d74
1 changed files with 1 additions and 1 deletions
--- a/extra/gpu/shaders/shaders.factor
+++ b/extra/gpu/shaders/shaders.factor
@ -277,7 +277,7 @@ padding-no [ 0 ] initialize
    ] [ nip ] if ":" join ;

 : replace-log-line-numbers ( object log -- log' )
-    "\n" split [ empty? not ] filter
+    "\n" split harvest
    [ replace-log-line-number ] with map
    "\n" join ;