From 27c65e985d1a0c23978239bd52342c766964b98b Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 1 Nov 2005 08:20:09 +0000
Subject: doc of prob

---
 src/GF/Probabilistic/Probabilistic.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/GF/Probabilistic/Probabilistic.hs b/src/GF/Probabilistic/Probabilistic.hs
index 1126776c8..5b5c6b2af 100644
--- a/src/GF/Probabilistic/Probabilistic.hs
+++ b/src/GF/Probabilistic/Probabilistic.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/11/01 09:10:54 $ 
+-- > CVS $Date: 2005/11/01 09:20:09 $ 
 -- > CVS $Author: aarne $
--- > CVS $Revision: 1.4 $
+-- > CVS $Revision: 1.5 $
 --
 -- Probabilistic abstract syntax. AR 30\/10\/2005
 --
@@ -83,7 +83,7 @@ pProb s = case words s of
      "--#":"prob":f:p:_ | isDouble p -> [(zIdent f, read p)]
      f:ps@(g:rest) -> case span (/= "--#") ps of
        (_,_:"prob":p:_) | isDouble p -> [(zIdent f', readD p)] where 
-         f' = if f=="fun" then ident g else ident f
+         f' = if elem f ["fun","lin","data"] then ident g else ident f
        _ -> []
      _ -> []
   where
-- 
cgit v1.2.3