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 /MLRISC/releases/release-110.79/ra/ra-core.sml
ViewVC logotype

Diff of /MLRISC/releases/release-110.79/ra/ra-core.sml

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

revision 624, Fri Apr 21 03:06:21 2000 UTC revision 628, Tue Apr 25 21:03:34 2000 UTC
# Line 138  Line 138 
138    
139       val _ = init(0, 0)       val _ = init(0, 0)
140        *)        *)
141         fun size (BM{elems, ...}) = !elems
142    
143       fun edges(BM{table=SMALL(ref table, _), ...}) = A.length table       fun edges(BM{table=SMALL(ref table, _), ...}) = A.length table
144         | edges(BM{table=LARGE(ref table, _), ...}) = A.length table         | edges(BM{table=LARGE(ref table, _), ...}) = A.length table

Legend:
Removed from v.624  
changed lines
  Added in v.628

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