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/branches/primop-branch-3/compiler/FLINT/reps/reify.sml
ViewVC logotype

Diff of /sml/branches/primop-branch-3/compiler/FLINT/reps/reify.sml

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

revision 114, Fri Jun 5 19:41:21 1998 UTC revision 184, Sun Nov 8 21:18:20 1998 UTC
# Line 108  Line 108 
108           fun lpfd (fk, f, vts, e) =           fun lpfd (fk, f, vts, e) =
109             let val nfk =             let val nfk =
110                   case fk                   case fk
111                    of FK_FUN{isrec=SOME lts, fixed, known, inline} =>                    of {isrec=SOME (lts,lk), cconv, known, inline} =>
112                         FK_FUN{isrec=SOME(map ltf lts), fixed=fixed,                         {isrec=SOME(map ltf lts, lk), cconv=cconv,
113                                known=known, inline=inline}                                known=known, inline=inline}
114                     | _ => fk                     | _ => fk
115                 val nvts = map (fn (v,t) => (v, ltf t)) vts                 val nvts = map (fn (v,t) => (v, ltf t)) vts

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

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