mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

brown-paper-bag commit

Browse source 
* module/system/vm/debug.scm (frame->module): In which our author
  misunderstands git's index.
This commit is contained in:
Andy Wingo 2010-06-02 22:56:10 +02:00
parent 9a598c47f7
commit 615eb45521
1 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

13
module/system/vm/debug.scm
View file

@ -152,13 +152,14 @@
(module-use! mod* mod) (module-use! mod* mod)
(for-each (for-each
(lambda (binding) (lambda (binding)
(module-add! (let* ((x (frame-local-ref frame (binding:index binding)))
mod* (var (if (binding:boxed? binding) x (make-variable x))))
(format (debug-output-port)
"~:[Read-only~;Mutable~] local variable ~a = ~70:@y\n"
(binding:boxed? binding)
(binding:name binding) (binding:name binding)
(let ((x (frame-local-ref frame (binding:index binding)))) (if (variable-bound? var) (variable-ref var) var))
(if (binding:boxed? binding) (module-add! mod* (binding:name binding) var)))
x
(make-variable x)))))
(frame-bindings frame)) (frame-bindings frame))
mod*) mod*)
(current-module)))) (current-module))))