SISR: top categories do not need the Cat_field field.

This commit is contained in:
bringert
2007-01-04 20:55:13 +00:00
parent bead866673
commit 2497093a5e
3 changed files with 4 additions and 10 deletions

View File

@@ -38,8 +38,8 @@ type SISRTag = [JS.DeclOrExpr]
prSISR :: SISRTag -> String
prSISR = JS.printTree
topCatSISR :: String -> String -> SISRFormat -> SISRTag
topCatSISR i c fmt = map JS.DExpr [field (fmtOut fmt) i `ass` fmtRef fmt c]
topCatSISR :: String -> SISRFormat -> SISRTag
topCatSISR c fmt = map JS.DExpr [fmtOut fmt `ass` fmtRef fmt c]
profileInitSISR :: CFTerm -> SISRFormat -> SISRTag
profileInitSISR t fmt