;;; profile-hack.scm (declare (unit profile-hack)) (set! ##sys#profile-entry (let ((pe ##sys#profile-entry)) (lambda (i v) (print (list i v)) (pe i v)))) (set! ##sys#profile-exit (let ((pe ##sys#profile-exit)) (lambda (i v) (print (list i v)) (pe i v)))) ;;; program.scm (declare (uses profile-hack)) (define (foo) (print 1)) (foo) ;;; compile as: ; ; csc -c profile-hack.scm ; csc program.scm profile-hack.o -profile ; ./program