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

dont allow tests of help scaffolding unless the vocabulary exists

db4
Doug Coleman 2009-04-17 23:24:41 -05:00
parent a12698ee5e
commit df9c48c586
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,6 +24,9 @@ ERROR: no-vocab vocab ;
: contains-separator? ( string -- ? ) [ path-separator? ] any? ;
: ensure-vocab-exists ( string -- string )
dup vocabs member? [ no-vocab ] unless ;
: check-vocab-name ( string -- string )
[ ]
[ contains-dot? [ vocab-name-contains-dot ] when ]
@ -234,6 +237,7 @@ PRIVATE>
[ (help.) ] [ nl vocabulary>> link-vocab ] bi ;
: scaffold-help ( vocab -- )
ensure-vocab-exists
[
dup "-docs.factor" vocab/suffix>path scaffolding? [
set-scaffold-docs-file
@ -268,6 +272,7 @@ PRIVATE>
PRIVATE>
: scaffold-tests ( vocab -- )
ensure-vocab-exists
dup "-tests.factor" vocab/suffix>path
scaffolding? [
set-scaffold-tests-file