* lib/kirjasto/työkalu.scm: add fcond
use gauche.base