|
From: Vesa K. <ve...@ml...> - 2007-01-29 23:30:50
|
Added missing function. ---------------------------------------------------------------------- U mlton/trunk/ide/emacs/def-use-data.el ---------------------------------------------------------------------- Modified: mlton/trunk/ide/emacs/def-use-data.el =================================================================== --- mlton/trunk/ide/emacs/def-use-data.el 2007-01-29 22:09:09 UTC (rev 5080) +++ mlton/trunk/ide/emacs/def-use-data.el 2007-01-30 07:30:49 UTC (rev 5081) @@ -100,9 +100,13 @@ (def-use-set-to-list (def-use-duf-to-src-set duf))) (defun def-use-src-to-pos-to-sym (src) - "Returns a pos to sym table for the specified source." + "Returns a position to symbol table for the specified source." (def-use-info-pos-to-sym (def-use-src-to-info src))) +(defun def-use-src-to-sym-set (src) + "Returns a set of all symbols defined in the specified source." + (def-use-info-sym-set (def-use-src-to-info src))) + (defun def-use-sym-at-ref (ref) "Returns the symbol referenced at specified ref." (gethash (def-use-ref-pos ref) @@ -115,7 +119,7 @@ (defun def-use-sym-to-uses (sym) "Returns a list of uses of the specified symbol." - (def-use-hash-table-to-key-list (def-use-sym-to-use-set sym))) + (def-use-set-to-list (def-use-sym-to-use-set sym))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Data purging |