From 23a6375ced4110e650cb3b4ab10614f6a5314995 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Sun, 24 Aug 2008 14:53:21 +0000
Subject: [PATCH] Completed SISR 1.0 support (untested).

---
 src/GF/Speech/SISR.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/GF/Speech/SISR.hs b/src/GF/Speech/SISR.hs
index 723dc1a49..7933a2597 100644
--- a/src/GF/Speech/SISR.hs
+++ b/src/GF/Speech/SISR.hs
@@ -58,8 +58,10 @@ profileFinalSISR term fmt = [JS.DExpr $ fmtOut fmt `ass` f term]
         f (CFMeta typ) = obj [("name",JS.EStr "?"), ("type",JS.EStr (prCId typ))]
 
 fmtOut SISR_WD20030401 = JS.EVar (JS.Ident "$")
+fmtOut SISR_1_0 = JS.EVar (JS.Ident "out")
 
 fmtRef SISR_WD20030401 c = JS.EVar (JS.Ident ("$" ++ c))
+fmtRef SISR_1_0 c = field (JS.EVar (JS.Ident "rules")) c
 
 args = JS.Ident "a"