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 246 - (download) (annotate)
Sat Apr 17 18:47:12 1999 UTC (21 years, 7 months ago) by monnier
File size: 391 byte(s)
This commit was generated by cvs2svn to compensate for changes in r245,
which included commits to RCS files with non-trunk default branches.
signature LSPLIT = sig

    type flint = CompBasic.flint

    val split: flint -> flint * flint option

structure LSplit :> LSPLIT = struct

    type flint = CompBasic.flint

    fun bug s = ErrorMsg.impossible ("LSplit: " ^ s)

    fun split (mFkind, mLvar, [(mArgLvar, mArgLty)], mBody) =
	    raise Fail "notyet"
      | split _ = bug "bad comp-unit argument list"


ViewVC Help
Powered by ViewVC 1.0.0