mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +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)
(for-each
(lambda (binding)
(module-add!
mod*
(let* ((x (frame-local-ref frame (binding:index binding)))
(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)
(let ((x (frame-local-ref frame (binding:index binding))))
(if (binding:boxed? binding)
x
(make-variable x)))))
(if (variable-bound? var) (variable-ref var) var))
(module-add! mod* (binding:name binding) var)))
(frame-bindings frame))
mod*)
(current-module))))