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

eliminate redundant redundancy

db4
Doug Coleman 2008-09-03 21:38:16 -05:00
parent 2e0e061790
commit b0e16704e6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -117,7 +117,7 @@ ERROR: vocab-name-contains-dot path ;
dup array? [ first ] when dup array? [ first ] when
dup lookup-type [ dup lookup-type [
[ unparse write bl ] [ unparse write bl ]
[ dup string? [ unparse write ] [ [ pprint ] [ add-using ] bi ] if ] bi* [ [ pprint ] [ dup string? [ drop ] [ add-using ] if ] bi ] bi*
] [ ] [
drop unparse write bl null pprint drop unparse write bl null pprint
null add-using null add-using