From ad9e2fd0e5aa02f5d2ff08034a40f220c604c3cf Mon Sep 17 00:00:00 2001
From: Eugene Sandulenko
Date: Tue, 21 Jun 2016 18:46:22 +0200
Subject: DIRECTOR: Lingo: Fix subexpressions

---
 engines/director/director.cpp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'engines/director/director.cpp')

diff --git a/engines/director/director.cpp b/engines/director/director.cpp
index dd1433b95e..9a5fbabd3e 100644
--- a/engines/director/director.cpp
+++ b/engines/director/director.cpp
@@ -91,7 +91,13 @@ if (x = 5) then\n\
 else\n\
 	set x = 8\n\
 end if\n\
-put x", kMovieScript, 3);
+put x\n\
+set y = 1\n\
+repeat while (y < 5)\n\
+  set y = y + 1\n\
+  put y\n\
+end repeat\n\
+", kMovieScript, 3);
 
 	_lingo->executeScript(kMovieScript, 3);
 
-- 
cgit v1.2.3