implemented current-jiffy in (scheme time)