diff options
Diffstat (limited to 'module/system/repl/debug.scm')
-rw-r--r-- | module/system/repl/debug.scm | 6 |
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" |