add --no-strictness-propagation option to precompiler and use it for builtins to avoid

compiling out trick with _trace

interpreter/builtin.sapl

@@ -8,7 +8,10 @@ App7 !f a1 a2 a3 a4 a5 a6 a7 = f a1 a2 a3 a4 a5 a6 a7
 App8 !f a1 a2 a3 a4 a5 a6 a7 a8 = f a1 a2 a3 a4 a5 a6 a7 a8
 App9 !f a1 a2 a3 a4 a5 a6 a7 a8 a9 = f a1 a2 a3 a4 a5 a6 a7 a8 a9
 
+error str = _trace str
+
 :: _Tuple2 = _Tuple2 a b
+:: _Tuple2!3 = _Tuple2!3 a b
 :: _Tuple3 = _Tuple3 a b c
 :: _Tuple4 = _Tuple4 a b c d
 
@@ -36,13 +39,3 @@ array_replace_B_R !arr !idx::I !elem::R = _Tuple2 (array_select_B_R arr idx) (ar
 
 second !f !s = s
 trace !str a = second (_trace str) a 
-
-tupsels2v0 !t = select t (_Tuple2 a0 a1 -> a0)
-tupsels2v1 !t = select t (_Tuple2 a0 a1 -> a1)
-tupsels3v0 !t = select t (_Tuple3 a0 a1 a2 -> a0)
-tupsels3v1 !t = select t (_Tuple3 a0 a1 a2 -> a1)
-tupsels3v2 !t = select t (_Tuple3 a0 a1 a2 -> a2)
-tupsels4v0 !t = select t (_Tuple4 a0 a1 a2 a3 -> a0)
-tupsels4v1 !t = select t (_Tuple4 a0 a1 a2 a3 -> a1)
-tupsels4v2 !t = select t (_Tuple4 a0 a1 a2 a3 -> a2)
-tupsels4v3 !t = select t (_Tuple4 a0 a1 a2 a3 -> a3)
\ No newline at end of file

interpreter/compile_builtin.bat

+..\precompiler\precompiler.exe --no-strictness-propagation builtin.sapl builtin.bsapl
\ No newline at end of file

precompiler/precompiler.icl

@@ -97,7 +97,7 @@ sTerm ctx t a = sTermS ctx (simplify t) a
 where
 	sTermS ctx (SLit lit) a = a <++ "L" <++ lit
 	sTermS ctx (SVar var) a = a <++ sVarApp ctx var
-	sTermS ctx (SSelect expr idx) a = a <++ "S" <++ sTerm {ctx & inspine = False} expr <++ sNum idx
+	sTermS ctx (SSelect expr _ idx) a = a <++ "S" <++ sTerm {ctx & inspine = False} expr <++ sNum idx
 	// The function part could by arbitrary SaplTerm in theory, but in practice at this point
 	// it can be only SVar
 	sTermS ctx (SApplication (SVar var) terms) a = a <++ appType ctx var <++ sNum (length terms) <++ sVar ctx var <++ sList0 (sTerm {ctx & inspine = False}) terms
@@ -187,19 +187,25 @@ where
 
 Start world
 	# (args, world) = getCommandLine world
-	| length args < 3 
+	
+	| length args < 2 
+		= setReturnCode -1 world
+	# no_strictness_prop = args!!1 == "--no-strictness-propagation"
+	# extra = if no_strictness_prop 1 0
+
+	| length args < (3 + extra) 
 		= setReturnCode -1 world
-	# (Ok sapl, world) = readFile (args!!1) world
+	# (Ok sapl, world) = readFile (args!!(1+extra)) world
 	
 	// tokenize
 	# tokens = tokensWithPositions sapl
 	// parse
 	# (Ok (fs, ps)) = parse tokens
 	// strictness propagation
-	# (fs, ps) = doStrictnessPropagation ps isStrictArg fs
+	# (fs, ps) = if no_strictness_prop (fs, ps) (doStrictnessPropagation ps isStrictArg fs)
 	// lifting
 	# fs = map prepareFun fs
 
-	# (_, world) = writeFile (args!!2) (toString (genDefs fs newAppender)) world
+	# (_, world) = writeFile (args!!(2+extra)) (toString (genDefs fs newAppender)) world
 	= world 
 	
\ No newline at end of file