Fossil SCM
|
1
|
<th1> |
|
2
|
# |
|
3
|
# This is a "TH1 fragment" used to test the Tcl integration features of TH1. |
|
4
|
# The corresponding test file executes this file using the test-th-render |
|
5
|
# Fossil command. |
|
6
|
# |
|
7
|
proc doOut {msg} {puts $msg; puts \n} |
|
8
|
|
|
9
|
if {[tclInvoke set tcl_version] >= 8.6} { |
|
10
|
doOut [tclInvoke tailcall set x 1] |
|
11
|
} else { |
|
12
|
error "This test requires Tcl 8.6 or higher." |
|
13
|
} |
|
14
|
</th1> |
|
15
|
|