[MLton-commit] r5081

Vesa Karvonen vesak at mlton.org
Mon Jan 29 23:30:50 PST 2007


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




More information about the MLton-commit mailing list