easy-help: add 'Class-Description:'

[factor.git] / extra / easy-help / easy-help.factor

diff --git a/extra/easy-help/easy-help.factor b/extra/easy-help/easy-help.factor
index 6f299d6c3705afc0221bed7b9578da1103fcb03b..ddb8f210e4daa47e5f89c1b21a4c94a959bb2162 100644 (file)
--- 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 }