преди 12 години · cc41a0ca0a
--- a/types.mli
+++ b/types.mli
@@ -98,7 +98,7 @@ and node =
 
				   | While of node * node * ann
			
 
				     (** condition, body [while (<condition>) <body>] *)
			
 
				   | DoWhile of node * node * ann
			
 
				-    (** condition, body [do <body> whlie (<condition>)] *)
			
 
				+    (** condition, body [do <body> while (<condition>)] *)
			
 
				 
			
 
				   (* Expressions *)