From 2f51b5e4f0df9278d5efce7c33b21a4f5574132e Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Thu, 25 Dec 2008 06:41:39 -0600
Subject: [PATCH] easy-help: add 'Class-Description:'

---
 extra/easy-help/easy-help.factor | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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 }
-- 
2.34.1