From c9801980ed56e2d9eae926786ed2eca95587b4ba Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 16 Jul 2016 16:28:04 -0700
Subject: [PATCH] help.lint.checks: factored out to no-ui-disposables word.

---
 basis/help/lint/checks/checks.factor | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/basis/help/lint/checks/checks.factor b/basis/help/lint/checks/checks.factor
index 684fb2b610..55a607000e 100644
--- a/basis/help/lint/checks/checks.factor
+++ b/basis/help/lint/checks/checks.factor
@@ -18,6 +18,13 @@ M: simple-lint-error error. summary print ;
 SYMBOL: vocabs-quot
 SYMBOL: vocab-articles
 
+: no-ui-disposables ( seq -- seq' )
+    [
+        class-of name>> {
+            "line" "single-texture" "multi-texture"
+        } member?
+    ] reject ;
+
 : check-example ( element -- )
     [
         '[
@@ -28,11 +35,7 @@ SYMBOL: vocab-articles
             ] keep
             last assert=
         ] vocabs-quot get call( quot -- )
-    ] leaks members [
-        class-of name>> {
-            "line" "single-texture" "multi-texture"
-        } member?
-    ] reject length [
+    ] leaks members no-ui-disposables length [
         "%d disposable(s) leaked in example" sprintf simple-lint-error
     ] unless-zero ;