| changeset 15338 | 08519594b0e4 |
| parent 15337 | 628d87767434 |
| child 15339 | a7b603bbc1e6 |
--- a/doc-src/Tutorial/CodeGen/value Mon Nov 29 11:12:19 2004 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,5 +0,0 @@ -consts value :: ('a => 'v) => ('a,'v)expr => 'v -primrec -"value env (Cex v) = v" -"value env (Vex a) = env a" -"value env (Bex f e1 e2) = f (value env e1) (value env e2)"