scheme_wish , by Sven Hartrumpf, is a portable interface between Scheme and Tcl/Tk. Chicken/Tk is based on it.