1 files changed, 4 insertions, 3 deletions
diff --git a/scTypes.ml b/scTypes.ml
index 6ea9f35..869df8b 100755
--- a/scTypes.ml
+++ b/scTypes.ml
@@ -12,8 +12,6 @@ type types =
   | Num  of Num.num * (UTF8.t option)     (** A number *)
   | Str  of UTF8.t                        (** A string *)
   | Date of Num.num                       (** A date in julian day *)
-
-  | Undefined                             (** The content is not defined *)
   | Bool of bool                          (** A boolean *)
 
 type refs =
@@ -55,7 +53,6 @@ module Type = struct
   end
 
   and show buffer = begin function
-    | Undefined -> ()
     | Num (n,x)     ->
       begin match x with
       | Some value -> UTF8.Buffer.add_string buffer value
@@ -171,6 +168,10 @@ let rec show_expr buffer : expression -> unit = begin function
     begin match utf8ident with
     | "+" | "*" | "-" | "/" | "^" | "="
     | "<>" | "<=" | ">=" | "<" | ">" -> begin match params with
+      | v1::[] ->
+        UTF8.Printf.bprintf buffer "%s%a"
+        utf8ident
+        show_expr v1
       | v1::v2::[] ->
         UTF8.Printf.bprintf buffer "%a%s%a"
         show_expr v1