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

fix bug in tools.scaffold

db4
Doug Coleman 2009-04-29 19:41:22 -05:00
parent 402dc1221d
commit afa787989a
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -106,15 +106,14 @@ M: bad-developer-name summary
: scaffold-authors ( vocab-root vocab -- ) : scaffold-authors ( vocab-root vocab -- )
developer-name get [ developer-name get [
dup string? [ bad-developer-name ] unless
"authors.txt" vocab-root/vocab/file>path scaffolding? [ "authors.txt" vocab-root/vocab/file>path scaffolding? [
utf8 set-file-contents developer-name get swap utf8 set-file-contents
] [ ] [
2drop drop
] if ] if
] [ ] [
2drop 2drop
] if* ; ] if ;
: lookup-type ( string -- object/string ? ) : lookup-type ( string -- object/string ? )
"new" ?head drop [ { [ CHAR: ' = ] [ digit? ] } 1|| ] trim-tail "new" ?head drop [ { [ CHAR: ' = ] [ digit? ] } 1|| ] trim-tail