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

oper and lindef in CanonToJS

Browse Source
This commit is contained in:
aarne
2007-10-31 16:41:39 +00:00
parent a2a37bc912
commit 3f4d3e69cf
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
concrete MathEnz of Math = open Prelude in {
concrete MathEnz of Mathw = open Prelude in {
flags lexer = textlit ; unlexer = textlit ;

2
examples/math/MathSwz.gf
View File

@@ -1,6 +1,6 @@
--# -path=.:prelude
concrete MathSwz of Math = open Prelude in {
concrete MathSwz of Mathw = open Prelude in {
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
where
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 l (C.CId f, t) =