Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /trunk/src/compiler/basis/basis-vars.sml
ViewVC logotype

Diff of /trunk/src/compiler/basis/basis-vars.sml

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

revision 178, Tue Jul 27 20:35:40 2010 UTC revision 179, Tue Jul 27 20:43:23 2010 UTC
# Line 235  Line 235 
235    
236    (* internal variables *)    (* internal variables *)
237      val i2r = monoVar (Atom.atom "$i2r", [Ty.T_Int] --> Ty.realTy)      (* integer to real conversion *)      val i2r = monoVar (Atom.atom "$i2r", [Ty.T_Int] --> Ty.realTy)      (* integer to real conversion *)
238        val input = polyVar (Atom.atom "$input", all([TK],
239                  fn [Ty.TYPE tv] => [Ty.T_String, Ty.T_Var tv] --> Ty.T_Var tv))
240      end (* local *)      end (* local *)
241    end    end

Legend:
Removed from v.178  
changed lines
  Added in v.179

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