From 7ff2ab799c376fc824ed892ddc5e0e907c37e207 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 28 Oct 2005 10:16:33 +0000
Subject: pass -fusion flag to backend

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1554 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 main/compile.icl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'main')

diff --git a/main/compile.icl b/main/compile.icl
index c3b048a..2957a9b 100644
--- a/main/compile.icl
+++ b/main/compile.icl
@@ -158,7 +158,8 @@ parseCommandLine [arg1=:"-dynamics":args] options
 	=	parseCommandLine args {options & compile_for_dynamics = True}
 parseCommandLine [arg1=:"-fusion":args] options
 	// switch on fusion transformations
-	= parseCommandLine args {options & compile_with_fusion = True}
+	# (args,modules,options) = parseCommandLine args {options & compile_with_fusion = True}
+	= ([arg1:args],modules,options)
 parseCommandLine [arg1=:"-dump":args] options
 	= parseCommandLine args {options & dump_core = True}
 parseCommandLine [arg1=:"-strip":args] options
-- 
cgit v1.2.3