From e561b24cb93d023a2b758ca9c4f51747cfd28c58 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 10 Jun 2016 09:21:57 +0000
Subject: pass -dynamics to backend

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

diff --git a/main/compile.icl b/main/compile.icl
index c63bafe..1125b47 100644
--- a/main/compile.icl
+++ b/main/compile.icl
@@ -183,7 +183,8 @@ parseCommandLine ["-id",compiler_id_string : args] options
 		= parseCommandLine args options
 parseCommandLine [arg1=:"-dynamics":args] options
 	// generates for each .icl module a .tcl file (which contains the type information for that module)
-	=	parseCommandLine args {options & compile_for_dynamics = True}
+	# (args,modules,options) = parseCommandLine args {options & compile_for_dynamics = True}
+	= ([arg1:args],modules,options)
 parseCommandLine [arg1=:"-fusion":args] options
 	// switch on fusion transformations
 	# (args,modules,options) = parseCommandLine args {options & compile_with_fusion = True}
-- 
cgit v1.2.3