msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

oper and lindef in CanonToJS

Browse Source
This commit is contained in:
aarne
2007-10-31 16:41:39 +00:00
parent 650b73e26b
commit a688096265
3 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
examples/math/MathEnz.gf
View File

@@ -1,6 +1,6 @@
--# -path=.:prelude --# -path=.:prelude
concrete MathEnz of Math = open Prelude in { concrete MathEnz of Mathw = open Prelude in {
flags lexer = textlit ; unlexer = textlit ; flags lexer = textlit ; unlexer = textlit ;

2
examples/math/MathSwz.gf
View File

@@ -1,6 +1,6 @@
--# -path=.:prelude --# -path=.:prelude
concrete MathSwz of Math = open Prelude in { concrete MathSwz of Mathw = open Prelude in {
flags lexer = textlit ; unlexer = textlit ; flags lexer = textlit ; unlexer = textlit ;

2
src/GF/Canon/CanonToJS.hs
View File

@@ -50,7 +50,7 @@ concrete2js (C.CId a) (C.CId c, cnc) =
++ concatMap (cncdef2js l) ds ++ concatMap (cncdef2js l) ds
where where
l = JS.Ident c l = JS.Ident c
ds = Map.assocs $ D.lins cnc ds = concatMap Map.assocs [D.lins cnc, D.opers cnc, D.lindefs cnc]
cncdef2js :: JS.Ident -> (C.CId,C.Term) -> [JS.Element] cncdef2js :: JS.Ident -> (C.CId,C.Term) -> [JS.Element]
cncdef2js l (C.CId f, t) = cncdef2js l (C.CId f, t) =