SCM Repository
Diff of /sml/trunk/src/compiler/FLINT/opt/optutils.sml
Parent Directory
| 
Revision Log
| 
Patch
| revision 189, Sun Nov 15 22:29:42 1998 UTC | revision 190, Thu Nov 19 21:01:17 1998 UTC | |
|---|---|---|
| # | Line 11 | Line 11 |
| 11 | val fk_wrap : FLINT.fkind * FLINT.lty list option -> | val fk_wrap : FLINT.fkind * FLINT.lty list option -> |
| 12 | (FLINT.fkind * FLINT.fkind) | (FLINT.fkind * FLINT.fkind) |
| 13 | ||
| (* sometimes I get fed up rewriting the identity function *) | ||
| val id : 'a -> 'a | ||
| 14 | (* this is a known APL function, but I don't know its real name *) | (* this is a known APL function, but I don't know its real name *) |
| 15 | val filter : bool list * 'a list -> 'a list | val filter : bool list * 'a list -> 'a list |
| 16 | end | end |
| # | Line 42 | Line 39 |
| 39 | | filter (false::fs,x::xs) = (filter(fs, xs)) | | filter (false::fs,x::xs) = (filter(fs, xs)) |
| 40 | | filter _ = bug "unmatched list length in filter" | | filter _ = bug "unmatched list length in filter" |
| 41 | ||
| fun id x = x | ||
| 42 | end | end |
| 43 | end | end |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
