From 2b64baf0cc674d04d9fa843ffc1742d06d5afb55 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Fri, 28 Nov 2008 10:40:16 +0300
Subject: [PATCH] Cosmetics

---
 nmo.ml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/nmo.ml b/nmo.ml
index 7e0780c..37f1846 100644
--- a/nmo.ml
+++ b/nmo.ml
@@ -476,7 +476,7 @@ let obj geom =
     val colormaterial = false
 
     method help =
-      [onoff "t""textures" textures
+      [onoff "t" "textures" textures
       ;onoff "l" "lighting" lighting
       ;onoff "w" "wireframe" (not solid)
       ;onoff "c" "color material" colormaterial
@@ -509,7 +509,8 @@ let _ =
   let geom = r x sbuf in
   let minmax =
     let rec f ((minx, maxx, miny, maxy, minz, maxz) as minmax) i =
-      if i >= Array.length geom.vertexa then minmax
+      if i >= Array.length geom.vertexa
+      then minmax
       else
         let x = geom.vertexa.(i+0) in
         let y = geom.vertexa.(i+1) in
-- 
2.11.4.GIT