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

tools.scaffold: include vocab-root in error message.

windows-high-dpi
John Benediktsson 2018-02-24 16:07:24 -08:00
parent 68eb683387
commit b7d763a6e0
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,7 +14,7 @@ SYMBOL: using
ERROR: not-a-vocab-root string ;
ERROR: vocab-must-not-exist string ;
ERROR: vocab-must-not-exist name root ;
<PRIVATE
@ -31,7 +31,7 @@ ERROR: vocab-must-not-exist string ;
[ check-root ] [ check-vocab-name ] bi* ;
: check-vocab-exists ( string -- string )
dup vocab-exists? [ vocab-must-not-exist ] when ;
dup vocab-exists? [ dup find-vocab-root vocab-must-not-exist ] when ;
: replace-vocab-separators ( vocab -- path )
path-separator first CHAR: . associate substitute ; inline
@ -132,8 +132,10 @@ ERROR: vocab-must-not-exist string ;
{ "exemplar" object }
{ "assoc" assoc }
{ "alist" "an array of key/value pairs" }
{ "keys" sequence } { "values" sequence }
{ "class" class } { "tuple" tuple }
{ "keys" sequence }
{ "values" sequence }
{ "class" class }
{ "tuple" tuple }
{ "url" url }
} at* [ swap [ \ $maybe swap 2array ] when ] dip ;