summaryrefslogtreecommitdiff
path: root/module/system/repl
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/repl')
-rw-r--r--module/system/repl/debug.scm3
1 files changed, 1 insertions, 2 deletions
diff --git a/module/system/repl/debug.scm b/module/system/repl/debug.scm
index 18ac10f5b..4bd9e2758 100644
--- a/module/system/repl/debug.scm
+++ b/module/system/repl/debug.scm
@@ -115,8 +115,7 @@
(format port "~aLocal variables:~%" per-line-prefix)
(for-each
(lambda (binding)
- (let ((v (frame-local-ref frame (binding-slot binding)
- (binding-representation binding))))
+ (let ((v (frame-binding-ref frame binding)))
(display per-line-prefix port)
(run-hook before-print-hook v)
(format port "~a = ~v:@y\n" (binding-name binding) width v)))