make sure a vocab exists before trying to document it
parent
6e8f5f50f1
commit
62235b3f7b
|
@ -13,6 +13,7 @@ SYMBOL: using
|
||||||
ERROR: not-a-vocab-root string ;
|
ERROR: not-a-vocab-root string ;
|
||||||
ERROR: vocab-name-contains-separator path ;
|
ERROR: vocab-name-contains-separator path ;
|
||||||
ERROR: vocab-name-contains-dot path ;
|
ERROR: vocab-name-contains-dot path ;
|
||||||
|
ERROR: no-vocab vocab ;
|
||||||
|
|
||||||
: root? ( string -- ? )
|
: root? ( string -- ? )
|
||||||
vocab-roots get member? ;
|
vocab-roots get member? ;
|
||||||
|
@ -183,10 +184,15 @@ PRIVATE>
|
||||||
|
|
||||||
: with-scaffold ( quot -- )
|
: with-scaffold ( quot -- )
|
||||||
[ H{ } clone using ] dip with-variable ; inline
|
[ H{ } clone using ] dip with-variable ; inline
|
||||||
|
|
||||||
|
: check-vocab ( vocab -- vocab )
|
||||||
|
dup find-vocab-root [ no-vocab ] unless ;
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
|
|
||||||
: scaffold-help ( vocab-root string -- )
|
: scaffold-help ( vocab-root string -- )
|
||||||
[
|
[
|
||||||
|
check-vocab
|
||||||
prepare-scaffold
|
prepare-scaffold
|
||||||
[ "-docs.factor" scaffold-path ] dip
|
[ "-docs.factor" scaffold-path ] dip
|
||||||
swap [ set-scaffold-help-file ] [ 2drop ] if
|
swap [ set-scaffold-help-file ] [ 2drop ] if
|
||||||
|
|
Loading…
Reference in New Issue