| changeset 22751 | 1bfd75c1f232 |
| parent 22308 | 7901493455ca |
| child 22798 | e3962371f568 |
--- a/doc-src/IsarAdvanced/Codegen/Thy/examples/class.ocaml Fri Apr 20 11:21:53 2007 +0200 +++ b/doc-src/IsarAdvanced/Codegen/Thy/examples/class.ocaml Fri Apr 20 13:11:47 2007 +0200 @@ -14,7 +14,7 @@ type 'a null = {null : 'a};; let null _A = _A.null;; -let rec head _A = function y :: xs -> y +let rec head _A = function x :: xs -> x | [] -> null _A;; let rec null_option = None;;