diff options
Diffstat (limited to 'module/system/vm/frame.scm')
-rw-r--r-- | module/system/vm/frame.scm | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/module/system/vm/frame.scm b/module/system/vm/frame.scm index ea2faafd7..8aba837d1 100644 --- a/module/system/vm/frame.scm +++ b/module/system/vm/frame.scm @@ -26,7 +26,7 @@ #:export (frame-bindings frame-lookup-binding frame-binding-ref frame-binding-set! - frame-next-source frame-call-representation + frame-call-representation frame-environment frame-object-binding frame-object-name)) @@ -71,15 +71,6 @@ ;;; Pretty printing ;;; -(define (frame-next-source frame) - (let ((proc (frame-procedure frame))) - (if (or (program? proc) (rtl-program? proc)) - (program-source proc - (frame-instruction-pointer frame) - (program-sources-pre-retire proc)) - '()))) - - ;; Basically there are two cases to deal with here: ;; ;; 1. We've already parsed the arguments, and bound them to local |