;;; 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