;; send tasks for normal standard task execution (define (call-cpp . args) (call-cpp-at-time (car args) 0 (cadr args) (cddr args) (current-environment)))