GFCC: TM with argument; fixed labels from bindings in gfc

This commit is contained in:
aarne
2008-01-31 20:56:42 +00:00
parent db6e1de1ae
commit 72b81987d7
7 changed files with 23 additions and 19 deletions
+1 -1
View File
@@ -63,7 +63,7 @@ term2js l t = f t
D.FV xs -> new "Variants" (map f xs)
D.W str x -> new "Suffix" [JS.EStr str, f x]
D.RP x y -> new "Rp" [f x, f y]
D.TM -> new "Meta" []
D.TM _ -> new "Meta" []
tokn2js :: D.Tokn -> JS.Expr
tokn2js (D.KS s) = mkStr s