SCM Repository
Diff of /trunk/src/compiler/basis/basis-vars.sml
Parent Directory
| 
Revision Log
| 
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 |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
