1
0
forked from GitHub/gf-rgl

use oper in examples

This commit is contained in:
krasimir
2009-06-13 13:36:41 +00:00
parent d9ed84a671
commit d29e6f4041

View File

@@ -7,7 +7,7 @@ resource Precedence = open Prelude in {
param param
Prec = p4 | p3 | p2 | p1 | p0 ; Prec = p4 | p3 | p2 | p1 | p0 ;
lintype oper
PrecTerm = Prec => Str ; PrecTerm = Prec => Str ;
oper oper
@@ -75,7 +75,7 @@ mkInfixR : Str -> Prec -> PrecTerm -> PrecTerm -> PrecTerm =
-- alternative: -- alternative:
-- precedence as inherent feature -- precedence as inherent feature
lintype TermWithPrec = {s : Str ; p : Prec} ; oper TermWithPrec = {s : Str ; p : Prec} ;
oper oper
mkpPrec : Str -> Prec -> TermWithPrec = mkpPrec : Str -> Prec -> TermWithPrec =