mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Use vhash-delq' in (language tree-il analyze)'.

Browse source 
* module/language/tree-il/analyze.scm (unbound-variable-analysis): Use
  `vhash-delq' instead of `vhash-delete'.
This commit is contained in:
Ludovic Courtès 2011-02-22 00:31:00 +01:00
parent 2a39def1a8
commit 1e1808c920
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/language/tree-il/analyze.scm
View file

@ -1,6 +1,6 @@
;;; TREE-IL -> GLIL compiler
;; Copyright (C) 2001,2008,2009,2010 Free Software Foundation, Inc.
;; Copyright (C) 2001, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@ -926,7 +926,7 @@ accurate information is missing from a given `tree-il' element."
(make-toplevel-info (vhash-consq name src refs)
defs))))
((<toplevel-define> name)
(make-toplevel-info (vhash-delete name refs eq?)
(make-toplevel-info (vhash-delq name refs)
(vhash-consq name #t defs)))
((<application> proc args)
@ -935,8 +935,7 @@ accurate information is missing from a given `tree-il' element."
(let ((name (goops-toplevel-definition proc args
env)))
(if (symbol? name)
(make-toplevel-info (vhash-delete name refs
eq?)
(make-toplevel-info (vhash-delq name refs)
(vhash-consq name #t defs))
(make-toplevel-info refs defs))))
(else