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/PervEnv/Basis/general.sml
ViewVC logotype

Annotation of /sml/trunk/src/compiler/PervEnv/Basis/general.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 90 - (view) (download)
Original Path: sml/branches/FLINT/src/compiler/PervEnv/Basis/general.sml

1 : monnier 89 (* general.sml
2 :     *
3 :     * COPYRIGHT (c) 1995 AT&T Bell Laboratories.
4 :     *
5 :     *)
6 :    
7 :     structure General : PRE_GENERAL =
8 :     struct
9 :    
10 :     type unit = PrimTypes.unit
11 :     type exn = PrimTypes.exn
12 :    
13 :     exception Bind = Core.Bind
14 :     exception Match = Core.Match
15 :     exception Subscript = Core.Subscript
16 :     exception Size = Core.Size
17 :     exception Overflow = Assembly.Overflow
18 :     exception Chr = InlineT.Char.Chr
19 :     exception Div = Assembly.Div
20 :     exception Domain
21 :     exception Span
22 :    
23 :     exception Fail of string
24 :    
25 :     datatype order = LESS | EQUAL | GREATER
26 :    
27 :     val ! = InlineT.!
28 :     val op := = InlineT.:=
29 :    
30 :     (*
31 :     fun f o g = fn x => f(g x)
32 :     fun a before b = a
33 :     *)
34 :     val op o : ('b -> 'c) * ('a -> 'b) -> ('a -> 'c) = InlineT.compose
35 :     val op before : ('a * unit) -> 'a = InlineT.before
36 :     fun ignore _ = ()
37 :    
38 :     end (* structure General *)
39 :    
40 :     (*
41 :     * $Log: general.sml,v $
42 :     * Revision 1.1.1.1 1998/04/08 18:40:04 george
43 :     * Version 110.5
44 :     *
45 :     *)

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0