From afa787989aebc391e0047936180a58057226b0cc Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 29 Apr 2009 19:41:22 -0500 Subject: [PATCH] fix bug in tools.scaffold --- basis/tools/scaffold/scaffold.factor | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor index 63dc951d60..5c8b868483 100755 --- a/basis/tools/scaffold/scaffold.factor +++ b/basis/tools/scaffold/scaffold.factor @@ -106,15 +106,14 @@ M: bad-developer-name summary : scaffold-authors ( vocab-root vocab -- ) developer-name get [ - dup string? [ bad-developer-name ] unless "authors.txt" vocab-root/vocab/file>path scaffolding? [ - utf8 set-file-contents + developer-name get swap utf8 set-file-contents ] [ - 2drop + drop ] if ] [ 2drop - ] if* ; + ] if ; : lookup-type ( string -- object/string ? ) "new" ?head drop [ { [ CHAR: ' = ] [ digit? ] } 1|| ] trim-tail