(xdef 'trunc (lambda (x) (inexact->exact (truncate x))))

From ac.scm ©