function name WIP

2016-10-11 10:39:24 +02:00 · 2016-10-11 10:39:24 +02:00 · 735288cfa2
parent 1fefd62562
commit 735288cfa2
1 changed files with 2 additions and 1 deletions
--- a/stack.scm
+++ b/stack.scm
@ -16,7 +16,8 @@
  (let ((source (frame-source frame)))
    (if source
        (let* ((args (frame-arguments frame))
-               (args (if (null? args) "" (string-append " args: " (to-string args)))))
+               (args (if (null? args) "" (string-append " args: " (to-string args))))
+               (foo (format (current-output-port) "~a\n" (frame-procedure frame))))
          (string-append (cadr source) ":"
                              (number->string  (caddr source)) ":" args))
        source)))