* lib/kirjasto/työkalu.scm: steal gauche's cond-list