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

SCM Repository

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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 111 - (view) (download)

1 : monnier 111 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