GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-03 08:12:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

unique ref

Browse Source
This commit is contained in:
aarne
2004-08-13 13:21:46 +00:00
parent ad3fd6c082
commit 18be5298f0
4 changed files with 18 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/GF/UseGrammar/Randomized.hs
View File

@@ -36,8 +36,9 @@ mkStateFromInts ints gr = mkRandomState ints where
testErr (isCompleteState state) "not completed"
return state
mkRandomState (n:ns) state = do
let refs = refinementsState gr state
testErr (not (null refs)) $ "no refinements available for" +++
let refs = refinementsState gr state
refs0 = map (not . snd . snd) refs
testErr (not (null refs0)) $ "no nonrecursive refinements available for" +++
prt (actVal state)
(ref,_) <- (refs !? (n `mod` (length refs)))
state1 <- refineWithAtom False gr ref state