SCM Repository
Annotation of /sml/trunk/src/compiler/FLINT/lsplit/ls-split.sml
Parent Directory
| 
Revision Log
Revision 245 -
(view)
(download)
Original Path: sml/branches/SMLNJ/src/compiler/FLINT/lsplit/ls-split.sml
| 1 : | monnier | 245 | signature LSPLIT = sig |
| 2 : | |||
| 3 : | type flint = CompBasic.flint | ||
| 4 : | |||
| 5 : | val split: flint -> flint * flint option | ||
| 6 : | end | ||
| 7 : | |||
| 8 : | structure LSplit :> LSPLIT = struct | ||
| 9 : | |||
| 10 : | type flint = CompBasic.flint | ||
| 11 : | |||
| 12 : | fun bug s = ErrorMsg.impossible ("LSplit: " ^ s) | ||
| 13 : | |||
| 14 : | fun split (mFkind, mLvar, [(mArgLvar, mArgLty)], mBody) = | ||
| 15 : | let | ||
| 16 : | in | ||
| 17 : | raise Fail "notyet" | ||
| 18 : | end | ||
| 19 : | | split _ = bug "bad comp-unit argument list" | ||
| 20 : | |||
| 21 : | end |
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
