Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/src/compiler/FLINT/lsplit/ls-split.sml
ViewVC logotype

View of /sml/trunk/src/compiler/FLINT/lsplit/ls-split.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 111 - (download) (annotate)
Fri Jun 5 19:37:29 1998 UTC (22 years, 1 month ago) by monnier
File size: 391 byte(s)
Initial revision
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