From 57c7dfd8fed5efd2d66f0b990941ade7382fa012 Mon Sep 17 00:00:00 2001
From: Xavier Leroy <xavier.leroy@inria.fr>
Date: Sun, 18 Jun 1995 14:59:32 +0000
Subject: MAJ apres le changement de representation des constructeurs constants
 (reste a tester).

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@48 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 otherlibs/unix/cst2constr.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'otherlibs/unix/cst2constr.c')

diff --git a/otherlibs/unix/cst2constr.c b/otherlibs/unix/cst2constr.c
index 7a519a750..7a0bb95ad 100644
--- a/otherlibs/unix/cst2constr.c
+++ b/otherlibs/unix/cst2constr.c
@@ -10,6 +10,6 @@ value cst_to_constr(n, tbl, size, deflt)
 {
   int i;
   for (i = 0; i < size; i++)
-    if (n == tbl[i]) return Atom(i);
-  return Atom(deflt);
+    if (n == tbl[i]) return Val_int(i);
+  return Val_int(deflt);
 }
-- 
cgit v1.2.3-70-g09d2