From 9935c8f3c00a42f55beda03593b3bf4cd78a5a83 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 27 Jan 2009 01:41:57 -0600
Subject: [PATCH] help.lint: check examples in articles

---
 basis/help/lint/lint.factor | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/basis/help/lint/lint.factor b/basis/help/lint/lint.factor
index 2f61d05a61..4424b52711 100644
--- a/basis/help/lint/lint.factor
+++ b/basis/help/lint/lint.factor
@@ -19,8 +19,8 @@ IN: help.lint
     ] keep
     peek assert= ;
 
-: check-examples ( word element -- )
-    nip \ $example swap elements [ check-example ] each ;
+: check-examples ( element -- )
+    \ $example swap elements [ check-example ] each ;
 
 : extract-values ( element -- seq )
     \ $values swap elements dup empty? [
@@ -64,8 +64,8 @@ IN: help.lint
         ]
     } 2|| [ "$values don't match stack effect" throw ] unless ;
 
-: check-see-also ( word element -- )
-    nip \ $see-also swap elements [
+: check-see-also ( element -- )
+    \ $see-also swap elements [
         rest dup prune [ length ] bi@ assert=
     ] each ;
 
@@ -100,9 +100,8 @@ M: help-error error.
         [
             dup word-help '[
                 _ _ {
-                    [ check-examples ]
                     [ check-values ]
-                    [ check-see-also ]
+                    [ nip [ check-examples ] [ check-see-also ] bi ]
                     [ [ check-rendering ] [ check-modules ] bi* ]
                 } 2cleave
             ] assert-depth
@@ -114,7 +113,10 @@ M: help-error error.
 : check-article ( article -- )
     [
         dup article-content
-        '[ _ check-rendering _ check-modules ]
+        '[
+            _ check-rendering
+            _ [ check-modules ] [ check-examples ] bi
+        ]
         assert-depth
     ] check-something ;