Tcl Library Source Code

Check-in [e3fcb27310]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix typo in variable use
Timelines: family | ancestors | descendants | both | pt-container-ssoberni
Files: files | file ages | folders
SHA3-256:e3fcb27310cd41cd3877ede865198314705b9bd7be94705d5e09f78322f6f895
User & Date: ssoberni 2018-06-14 09:40:08
Context
2018-06-14
09:48
Fix typo in variable use check-in: b08e3a4fd7 user: ssoberni tags: pt-container-ssoberni
09:40
Fix typo in variable use check-in: e3fcb27310 user: ssoberni tags: pt-container-ssoberni
2018-06-13
21:48
Fix order of cleanup operations; dropping unrealizable non-terminals is known to result in new unreachable ones. check-in: 29c5675b36 user: ssoberni tags: pt-container-ssoberni
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to modules/pt/pt_pexpr_op.tcl.

78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
		if {$a eq "@@"} continue
		lappend newarg $a
	    }

	    if {![llength $newarg]} {
		# Nothing remained, drop the whole expression
		return [pt::pe epsilon]
	    } elseif {[llength $newarg] < [llength $argument]} {
		# Some removed, construct a new expression
		set pe [list $op {*}$newarg]
	    } ; # None removed, no change.
	}
    }

    return $pe







|







78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
		if {$a eq "@@"} continue
		lappend newarg $a
	    }

	    if {![llength $newarg]} {
		# Nothing remained, drop the whole expression
		return [pt::pe epsilon]
	    } elseif {[llength $newarg] < [llength $arguments]} {
		# Some removed, construct a new expression
		set pe [list $op {*}$newarg]
	    } ; # None removed, no change.
	}
    }

    return $pe