From 53962bcaf6f4d72aa1a63fcc25aa58124adc09a1 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Sun, 8 Jul 2007 17:38:07 +0400
Subject: [PATCH] v0.97b

---
 OMakefile | 2 +-
 apc.ml    | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/OMakefile b/OMakefile
index a3ebf89..2c5cc7b 100644
--- a/OMakefile
+++ b/OMakefile
@@ -1,4 +1,4 @@
-version = 0.97a
+version = 0.97b
 
 ocaml-includes = -I +lablGL
 
diff --git a/apc.ml b/apc.ml
index 645cc55..93a7331 100644
--- a/apc.ml
+++ b/apc.ml
@@ -135,7 +135,7 @@ end
 
 module Args = struct
   let banner =
-    [ "Amazing Piece of Code by insanely gifted programmer, Version 0.97a"
+    [ "Amazing Piece of Code by insanely gifted programmer, Version 0.97b"
     ; "Motivation by: gzh and afs"
     ; "usage: "
     ] |> String.concat "\n"
@@ -201,7 +201,7 @@ module Args = struct
     then
       "-" ^ opt, Arg.Clear r, pad 9 "" ^ doc |> dB |< r
     else
-      "-" ^ opt, Arg.Clear r, pad 9 "" ^ doc |> dcB |< r
+      "-" ^ opt, Arg.Set r, pad 9 "" ^ doc |> dcB |< r
 
   let init () =
     let opts =
-- 
2.11.4.GIT