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

tools.scaffold: clean up

Slava Pestov 2010-08-02 20:50:59 -04:00
parent 88102c3ed5
commit 2f6ef5659d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -166,8 +166,8 @@ M: bad-developer-name summary
" " write ; inline " " write ; inline
: ?print-nl ( seq1 seq2 -- ) : ?print-nl ( seq1 seq2 -- )
{ [ nip empty? ] [ drop empty? ] } 2|| not [ empty? ] either? [ nl ] unless ;
[ nl ] when ;
: $values. ( word -- ) : $values. ( word -- )
"declared-effect" word-prop [ "declared-effect" word-prop [
[ in>> ] [ out>> ] bi [ in>> ] [ out>> ] bi