scheme@(guile-user)> (use-modules (system vm trace)) scheme@(guile-user)> (define (test) (symbol->string 'foo)) scheme@(guile-user)> (trace-calls-to-procedure test #:prefix "XXX: ") $1 = # scheme@(guile-user)> (call-with-trace (lambda () (test))) trace: (test) XXX: (test) trace: (symbol->string foo) XXX: "foo" trace: "foo" $2 = "foo" scheme@(guile-user)> (call-with-trace (lambda () (test)) #:calls? #f) XXX: (test) XXX: "foo" $3 = "foo" scheme@(guile-user)>