mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 12:10:26 +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 ;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; 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) (make-toplevel-info (vhash-consq name src refs)
defs)))) defs))))
((<toplevel-define> name) ((<toplevel-define> name)
(make-toplevel-info (vhash-delete name refs eq?) (make-toplevel-info (vhash-delq name refs)
(vhash-consq name #t defs))) (vhash-consq name #t defs)))
((<application> proc args) ((<application> proc args)
@ -935,8 +935,7 @@ accurate information is missing from a given `tree-il' element."
(let ((name (goops-toplevel-definition proc args (let ((name (goops-toplevel-definition proc args
env))) env)))
(if (symbol? name) (if (symbol? name)
(make-toplevel-info (vhash-delete name refs (make-toplevel-info (vhash-delq name refs)
eq?)
(vhash-consq name #t defs)) (vhash-consq name #t defs))
(make-toplevel-info refs defs)))) (make-toplevel-info refs defs))))
(else (else