summaryrefslogtreecommitdiff
path: root/module/system/repl/debug.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/repl/debug.scm')
-rw-r--r--module/system/repl/debug.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/module/system/repl/debug.scm b/module/system/repl/debug.scm
index 6fff660e5..9516af622 100644
--- a/module/system/repl/debug.scm
+++ b/module/system/repl/debug.scm
@@ -113,7 +113,8 @@
(format port "~aLocal variables:~%" per-line-prefix)
(for-each
(lambda (binding)
- (let ((v (frame-local-ref frame (binding-slot binding))))
+ (let ((v (frame-local-ref frame (binding-slot binding)
+ (binding-representation binding))))
(display per-line-prefix port)
(run-hook before-print-hook v)
(format port "~a = ~v:@y\n" (binding-name binding) width v)))
@@ -174,7 +175,8 @@
(module-use! mod* mod)
(for-each
(lambda (binding)
- (let* ((x (frame-local-ref frame (binding-slot binding)))
+ (let* ((x (frame-local-ref frame (binding-slot binding)
+ (binding-representation binding)))
(var (if (variable? x) x (make-variable x))))
(format #t
"~:[Read-only~;Mutable~] local variable ~a = ~70:@y\n"