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

fix load error in scaffold

db4
Doug Coleman 2009-02-22 10:03:37 -06:00
parent 06f6eb98aa
commit 1f5a701f68
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/tools/scaffold/scaffold-docs.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: help.markup help.syntax kernel strings words ; USING: help.markup help.syntax kernel strings words vocabs ;
IN: tools.scaffold IN: tools.scaffold
HELP: developer-name HELP: developer-name
@ -13,7 +13,7 @@ HELP: help.
{ $description "Prints out scaffold help markup for a given word." } ; { $description "Prints out scaffold help markup for a given word." } ;
HELP: scaffold-help HELP: scaffold-help
{ $values { "string" string } } { $values { "vocab" vocab } }
{ $description "Takes an existing vocabulary and creates a help file with scaffolded help for each word. This word only works if no help file yet exists." } ; { $description "Takes an existing vocabulary and creates a help file with scaffolded help for each word. This word only works if no help file yet exists." } ;
HELP: scaffold-undocumented HELP: scaffold-undocumented

10
basis/tools/scaffold/scaffold.factor
View File

@ -169,7 +169,7 @@ ERROR: no-vocab vocab ;
: docs-header. ( word -- ) : docs-header. ( word -- )
"HELP: " write name>> print ; "HELP: " write name>> print ;
: (docs.) ( word -- ) : (help.) ( word -- )
[ docs-header. ] [ $values. ] [ $description. ] tri ; [ docs-header. ] [ $values. ] [ $description. ] tri ;
: interesting-words ( vocab -- array ) : interesting-words ( vocab -- array )
@ -178,7 +178,7 @@ ERROR: no-vocab vocab ;
natural-sort ; natural-sort ;
: interesting-words. ( vocab -- ) : interesting-words. ( vocab -- )
interesting-words [ (docs.) nl ] each ; interesting-words [ (help.) nl ] each ;
: docs-file-string ( vocab -- str2 ) : docs-file-string ( vocab -- str2 )
[ [
@ -216,11 +216,11 @@ ERROR: no-vocab vocab ;
"Edit documentation: " write "Edit documentation: " write
"-docs.factor" vocab/suffix>path <pathname> . ; "-docs.factor" vocab/suffix>path <pathname> . ;
: docs. ( word -- )
[ (docs.) ] [ nl vocabulary>> link-vocab ] bi ;
PRIVATE> PRIVATE>
: help. ( word -- )
[ (help.) ] [ nl vocabulary>> link-vocab ] bi ;
: scaffold-help ( vocab -- ) : scaffold-help ( vocab -- )
[ [
dup "-docs.factor" vocab/suffix>path scaffolding? [ dup "-docs.factor" vocab/suffix>path scaffolding? [