From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Thu, 25 Dec 2008 12:41:39 +0000 (-0600)
Subject: easy-help: add 'Class-Description:'
X-Git-Tag: 0.94~2205^2~4
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=2f51b5e4f0df9278d5efce7c33b21a4f5574132e

easy-help: add 'Class-Description:'
---

diff --git a/extra/easy-help/easy-help.factor b/extra/easy-help/easy-help.factor
index 6f299d6c37..ddb8f210e4 100644
--- a/extra/easy-help/easy-help.factor
+++ b/extra/easy-help/easy-help.factor
@@ -31,8 +31,20 @@ IN: easy-help
 : Contract:        { $contract    } parse-text-block append parsed ; parsing
 : Checked-Example: { $example     } parse-text-block append parsed ; parsing
 
+: Class-Description:
+  { $class-description } parse-text-block append parsed ; parsing
+
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
+: Code:
+  
+  { $code }
+  parse-text-block [ dup array? [ drop "" ] [ ] if ] map
+  append
+  parsed
+  
+  ; parsing
+
 : Example:
   { $heading "Example" }
   { $code }