Author: aschnell Date: Fri Jun 20 15:49:43 2008 New Revision: 48455 URL: http://svn.opensuse.org/viewcvs/yast?rev=48455&view=rev Log: - use list::reduce Modified: branches/tmp/aschnell/part-redesign/storage/src/modules/Greasemonkey.ycp branches/tmp/aschnell/part-redesign/storage/src/modules/StorageFields.ycp Modified: branches/tmp/aschnell/part-redesign/storage/src/modules/Greasemonkey.ycp URL: http://svn.opensuse.org/viewcvs/yast/branches/tmp/aschnell/part-redesign/storage/src/modules/Greasemonkey.ycp?rev=48455&r1=48454&r2=48455&view=diff ============================================================================== --- branches/tmp/aschnell/part-redesign/storage/src/modules/Greasemonkey.ycp (original) +++ branches/tmp/aschnell/part-redesign/storage/src/modules/Greasemonkey.ycp Fri Jun 20 15:49:43 2008 @@ -17,14 +17,14 @@ { list<term> frames = (list<term>) argsof(old); - term tmp = `VBox(); + term new = `VBox(); foreach(term frame, frames, { - if (size(tmp) != 0) - tmp = add(tmp, `VSpacing(0.45)); - tmp = add(tmp, frame); + if (size(new) != 0) + new = add(new, `VSpacing(0.45)); + new = add(new, frame); }); - return tmp; + return new; } @@ -146,13 +146,10 @@ if (handler != nil) return Transform(handler(old)); - term new = toterm(s); - - foreach(any arg, argsof(old), { + term new = list::reduce(term tmp, any arg, toterm(s), argsof(old), { if (is(arg, term)) - new = add(new, Transform((term) arg)); - else - new = add(new, arg); + arg = Transform((term) arg); + return add(tmp, arg); }); return new; Modified: branches/tmp/aschnell/part-redesign/storage/src/modules/StorageFields.ycp URL: http://svn.opensuse.org/viewcvs/yast/branches/tmp/aschnell/part-redesign/storage/src/modules/StorageFields.ycp?rev=48455&r1=48454&r2=48455&view=diff ============================================================================== --- branches/tmp/aschnell/part-redesign/storage/src/modules/StorageFields.ycp (original) +++ branches/tmp/aschnell/part-redesign/storage/src/modules/StorageFields.ycp Fri Jun 20 15:49:43 2008 @@ -532,9 +532,8 @@ { string device = (part == nil) ? disk["device"]:"" : part["device"]:""; - term row = `item(`id(device)); - foreach(symbol field, fields, { - row = add(row, MakeSubInfo(disk, part, field, `table)); + term row = list::reduce(term tmp, symbol field, `item(`id(device)), fields, { + return add(tmp, MakeSubInfo(disk, part, field, `table)); }); return row; -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org