Tcl Library Source Code

View Ticket
Login
Ticket UUID: 6e778502b8990f3255ef4cbd83f18770fd967966
Title: struct::list flatten, the "--" option breaks it
Type: Bug Version: 1.8.3
Submitter: glennj Created on: 2016-01-12 16:03:25
Subsystem: struct :: list Assigned To: andrewm
Priority: 5 Medium Severity: Severe
Status: Closed Last Modified: 2019-02-26 06:10:18
Resolution: Fixed Closed By: aku
    Closed on: 2019-02-26 06:10:18
Description:
% package require struct::list
1.8.3
% set List1 {1 2 {3 4 5} 6 7 {8} 9 10 {{11 12} 13} 14 {15} 16 {{{{17} 18} 19} 20} 21 22 {23} 24 25}
1 2 {3 4 5} 6 7 {8} 9 10 {{11 12} 13} 14 {15} 16 {{{{17} 18} 19} 20} 21 22 {23} 24 25
% struct::list flatten $List1
1 2 3 4 5 6 7 8 9 10 {11 12} 13 14 15 16 {{{17} 18} 19} 20 21 22 23 24 25
% struct::list flatten -full $List1
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
% # OK so far. But ...
% struct::list flatten -full -- $List1
wrong#args: should be "::struct::list::Lflatten ?-full? ?--? sequence"
% struct::list flatten -- $List1
wrong#args: should be "::struct::list::Lflatten ?-full? ?--? sequence"
User Comments: aku added on 2019-02-26 06:10:18:
Thank you Andrew.

Merged with commit [7963b3dbaf].

andrewm added on 2019-01-05 19:43:44:
Assigning this to andrewm as an easy cherry pick off the bug list.