doc-src/IsarAdvanced/Codegen/Thy/examples/class.ocaml
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;;