GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

tiny fixes

Browse Source
This commit is contained in:
aarne
2005-05-10 13:16:59 +00:00
parent 6f3229f087
commit 41657fed46
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
examples/gfcc/ResImper.gf
View File

@@ -12,7 +12,7 @@ resource ResImper = open Predef in {
{s = f ; p = p ; a = a} ; {s = f ; p = p ; a = a} ;
usePrec : PrecExp -> Prec -> Str = \x,p -> usePrec : PrecExp -> Prec -> Str = \x,p ->
case <x.p,p> of { case <<x.p,p> : Prec * Prec> of {
<3,4> | <2,3> | <2,4> => paren x.s ; <3,4> | <2,3> | <2,4> => paren x.s ;
<1,1> | <1,0> | <0,0> => x.s ; <1,1> | <1,0> | <0,0> => x.s ;
<1,_> | <0,_> => paren x.s ; <1,_> | <0,_> => paren x.s ;

8
src/GF/UseGrammar/Parsing.hs
View File

@@ -5,9 +5,9 @@
-- Stability : (stable) -- Stability : (stable)
-- Portability : (portable) -- Portability : (portable)
-- --
-- > CVS $Date: 2005/05/09 09:28:46 $ -- > CVS $Date: 2005/05/10 14:16:59 $
-- > CVS $Author: peb $ -- > CVS $Author: aarne $
-- > CVS $Revision: 1.21 $ -- > CVS $Revision: 1.22 $
-- --
-- (Description of the module) -- (Description of the module)
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
@@ -103,7 +103,7 @@ trees2trms opts sg cn as ts0 info = do
let num = optIntOrN opts flagRawtrees 99999 let num = optIntOrN opts flagRawtrees 99999
let (ts01,rest) = splitAt num ts0 let (ts01,rest) = splitAt num ts0
if null rest then return () if null rest then return ()
else checkWarn ("Warning: only" +++ show num +++ "raw parses out of" +++ else raise ("Warning: only" +++ show num +++ "raw parses out of" +++
show (length ts0) +++ show (length ts0) +++
"considered; use -rawtrees=<Int> to see more" "considered; use -rawtrees=<Int> to see more"
) )