Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/smlnj-lib/Util/int-hash-table.sml
ViewVC logotype

Diff of /sml/trunk/src/smlnj-lib/Util/int-hash-table.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 496, Tue Dec 7 15:43:07 1999 UTC revision 596, Wed Apr 5 14:36:19 2000 UTC
# Line 145  Line 145 
145      fun foldi f init (HT{table, ...}) = HTRep.foldi f init (! table)      fun foldi f init (HT{table, ...}) = HTRep.foldi f init (! table)
146      fun fold f init (HT{table, ...}) = HTRep.fold f init (! table)      fun fold f init (HT{table, ...}) = HTRep.fold f init (! table)
147    
148      (* modify the hash-table items in place *)
149        fun modifyi f (HT{table, ...}) = HTRep.modifyi f (!table)
150        fun modify f (HT{table, ...}) = HTRep.modify f (!table)
151    
152    (* remove any hash table items that do not satisfy the given    (* remove any hash table items that do not satisfy the given
153     * predicate.     * predicate.
154     *)     *)
155      fun filteri pred (HT{table, ...}) = HTRep.filteri pred (! table)      fun filteri pred (HT{table, n_items, ...}) =
156      fun filter pred (HT{table, ...}) = HTRep.filter pred (! table)            n_items := HTRep.filteri pred (! table)
157        fun filter pred (HT{table, n_items, ...}) =
158              n_items := HTRep.filter pred (! table)
159    
160    (* Create a copy of a hash table *)    (* Create a copy of a hash table *)
161      fun copy (HT{table, n_items, not_found}) = HT{      fun copy (HT{table, n_items, not_found}) = HT{

Legend:
Removed from v.496  
changed lines
  Added in v.596

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0