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/compiler/FLINT/cpsopt/contract.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/cpsopt/contract.sml

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

revision 114, Fri Jun 5 19:41:21 1998 UTC revision 122, Sat Jun 6 15:05:38 1998 UTC
# Line 535  Line 535 
535                                       of {info=RECinfo vl,...} =>                                       of {info=RECinfo vl,...} =>
536                                           (let val z = #1(List.nth(vl,i))                                           (let val z = #1(List.nth(vl,i))
537                                                val z' = ren z                                                val z' = ren z
538                                            in if (!CG.liftLiterals)                                            in if (!Control.FLINT.liftLiterals)
539                                               then (case z'                                               then (case z'
540                                                      of REAL _ => NONE                                                      of REAL _ => NONE
541                                                       | _  => SOME z')                                                       | _  => SOME z')

Legend:
Removed from v.114  
changed lines
  Added in v.122

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