#202 - improve print codegen

Author: Stepami

src/Application/HydraScript.Application.CodeGeneration/Visitors/InstructionProvider.cs

@@ -232,17 +232,25 @@ public AddressedInstructions Visit(IfStatement visitable)
 
     public AddressedInstructions Visit(PrintStatement visitable)
     {
-        AddressedInstructions result = [];
-
         if (visitable.Expression is PrimaryExpression prim)
-            result.Add(new AsString(_valueFactory.Create(prim.ToValueDto())));
-        else
         {
-            result.AddRange(visitable.Expression.Accept(_expressionVisitor));
-            var name = result.OfType<Simple>().Last().Left!;
-            result.Add(new AsString(name));
+            var valueDto = prim.ToValueDto();
+            var printedValue = _valueFactory.Create(valueDto);
+            IExecutableInstruction instruction = valueDto is { Type: ValueDtoType.Env } or { Type: ValueDtoType.Constant, Value: string }
+                ? new Print(printedValue)
+                : new AsString(printedValue);
+            AddressedInstructions shortResult = [instruction];
+            if (instruction is AsString asString)
+                shortResult.Add(new Print(asString.Left!));
+            return shortResult;
         }
 
+        AddressedInstructions result = [];
+
+        result.AddRange(visitable.Expression.Accept(_expressionVisitor));
+        var name = result.OfType<Simple>().Last().Left!;
+        result.Add(new AsString(name));
+
         result.Add(new Print((result[result.End] as AsString)!.Left!));
 
         return result;