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/ml-nlffi-lib/internals/c-int.sml
ViewVC logotype

Diff of /sml/trunk/src/ml-nlffi-lib/internals/c-int.sml

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

revision 839, Thu Jun 7 20:28:44 2001 UTC revision 840, Fri Jun 15 19:05:19 2001 UTC
# Line 150  Line 150 
150              fun dg n d = 10 * d + n              fun dg n d = 10 * d + n
151          in          in
152              val dec' = 0              val dec' = 0
153              val dg0' = dg 0              val (dg0', dg1', dg2', dg3', dg4', dg5', dg6', dg7', dg8', dg9') =
154              val dg1' = dg 1                  (dg 0, dg 1, dg 2, dg 3, dg 4, dg 5, dg 6, dg 7, dg 8, dg 9)
             val dg2' = dg 2  
             val dg3' = dg 3  
             val dg4' = dg 4  
             val dg5' = dg 5  
             val dg6' = dg 6  
             val dg7' = dg 7  
             val dg8' = dg 8  
             val dg9' = dg 9  
155    
156              fun dec k = k dec'              fun dec k = k dec'
157              fun dg0 d k = k (dg0' d)              fun dg0 d k = k (dg0' d)

Legend:
Removed from v.839  
changed lines
  Added in v.840

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