tweak calc improvements
[lambda.git] / code / calculator / calc4.ml
index d2fc94e..571d277 100644 (file)
@@ -1,22 +1,22 @@
 (* calc3.ml, enhanced with Mutable Cells *)
 
        type term =
 (* calc3.ml, enhanced with Mutable Cells *)
 
        type term =
-                 Intconstant of int
-               | Multiplication of (term * term)
-               | Addition of (term * term)
-               | Variable of char
-               | Let of (char * term * term)
-               | Iszero of term
-               | If of (term * term * term)
-               | Makepair of (term * term)
-               | First of term
-               | Lambda of (char * term)
-               | Apply of (term * term)
-               | Letrec of (char * term * term)
-               | Newref of term
-               | Deref of term
-               | Setref of (term * term)
-        ;;
+      Intconstant of int
+    | Multiplication of (term * term)
+    | Addition of (term * term)
+    | Variable of char
+    | Let of (char * term * term)
+    | Iszero of term
+    | If of (term * term * term)
+    | Makepair of (term * term)
+    | First of term
+    | Lambda of (char * term)
+    | Apply of (term * term)
+    | Letrec of (char * term * term)
+    | Newref of term
+    | Deref of term
+    | Setref of (term * term)
+    ;;
 
        type index = int;;
 
 
        type index = int;;