help.lint.checks: remove leaks check for now due to bootstrap issues.

diff --git a/basis/help/lint/checks/checks.factor b/basis/help/lint/checks/checks.factor
index 8a31cac7c553cff59507e98a98b190833c8ef322..7e518f98fc935f6b9b74d6e8c8ea17c2090be159 100644 (file)
--- a/basis/help/lint/checks/checks.factor
+++ b/basis/help/lint/checks/checks.factor
@@ -2,10 +2,10 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays assocs classes classes.tuple combinators
 combinators.short-circuit debugger definitions effects eval
-formatting fry grouping help help.markup help.topics io io.streams.string
-kernel macros math namespaces sequences sequences.deep sets splitting
-strings summary threads tools.destructors unicode.categories vocabs vocabs.loader
-words words.constant words.symbol ;
+formatting fry grouping help help.markup help.topics io
+io.streams.string kernel macros namespaces sequences
+sequences.deep sets splitting strings summary unicode.categories
+vocabs vocabs.loader words words.constant words.symbol ;
 FROM: sets => members ;
 IN: help.lint.checks
 
@@ -20,7 +20,7 @@ SYMBOL: all-vocabs
 SYMBOL: vocab-articles
 
 : check-example ( element -- )
-    [
+    ! [
         '[
             _ rest [
                 but-last "\n" join
@@ -28,10 +28,10 @@ SYMBOL: vocab-articles
                 "\n" ?tail drop
             ] keep
             last assert=
-        ] vocabs-quot get call( quot -- )
-    ] leaks members length [
-        "%d disposable(s) leaked in example" sprintf simple-lint-error
-    ] unless-zero ;
+        ] vocabs-quot get call( quot -- ) ;
+    ! ] leaks members length [
+    !     "%d disposable(s) leaked in example" sprintf simple-lint-error
+    ! ] unless-zero ;
 
 : check-examples ( element -- )
     \ $example swap elements [ check-example ] each ;