SCM Repository
View of /sml/trunk/src/compiler/FLINT/lsplit/ls-split.sml
Parent Directory
| 
Revision Log
Revision 245 -
(download)
(annotate)
Sat Apr 17 18:47:12 1999 UTC (21 years, 9 months ago) by monnier
Original Path: sml/branches/SMLNJ/src/compiler/FLINT/lsplit/ls-split.sml
File size: 391 byte(s)
Sat Apr 17 18:47:12 1999 UTC (21 years, 9 months ago) by monnier
Original Path: sml/branches/SMLNJ/src/compiler/FLINT/lsplit/ls-split.sml
File size: 391 byte(s)
version 110.16
signature LSPLIT = sig
type flint = CompBasic.flint
val split: flint -> flint * flint option
end
structure LSplit :> LSPLIT = struct
type flint = CompBasic.flint
fun bug s = ErrorMsg.impossible ("LSplit: " ^ s)
fun split (mFkind, mLvar, [(mArgLvar, mArgLty)], mBody) =
let
in
raise Fail "notyet"
end
| split _ = bug "bad comp-unit argument list"
end
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
