steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

easy-help: add 'Class-Description:'

db4
Eduardo Cavazos 2008-12-25 06:41:39 -06:00
parent c289aa5c38
commit 2f51b5e4f0
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/easy-help/easy-help.factor
View File

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