mirror of
https://github.com/Stichting-MINIX-Research-Foundation/netbsd.git
synced 2025-09-13 09:09:01 -04:00
21 lines
187 B
Tcl
21 lines
187 B
Tcl
#!./tclsh
|
|
|
|
proc func_c {} {
|
|
puts "Function C"
|
|
after 1000
|
|
}
|
|
|
|
proc func_b {} {
|
|
puts "Function B"
|
|
after 1000
|
|
func_c
|
|
}
|
|
|
|
proc func_a {} {
|
|
puts "Function A"
|
|
after 1000
|
|
func_b
|
|
}
|
|
|
|
func_a
|