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