Add print macro

spec/compiler/macro/macro_methods_spec.cr

@@ -3137,6 +3137,15 @@ module Crystal
         end.should eq %(bar\n)
       end
 
+      it "print" do
+        String.build do |io|
+          assert_macro(%({% print foo %}), "") do |program|
+            program.stdout = io
+            {foo: "bar".string}
+          end
+        end.should eq %(bar)
+      end
+
       it "p" do
         String.build do |io|
           assert_macro(%({% p foo %}), "") do |program|

src/compiler/crystal/macros.cr

@@ -186,6 +186,10 @@ module Crystal::Macros
   def puts(*expressions) : Nop
   end
 
+  # Prints AST nodes at compile-time. Useful for debugging macros.
+  def print(*expressions) : Nop
+  end
+
   # Same as `puts`.
   def p(*expressions) : Nop
   end

src/compiler/crystal/macros/methods.cr

@@ -59,6 +59,8 @@ module Crystal
         interpret_parse_type(node)
       when "puts"
         interpret_puts(node)
+      when "print"
+        interpret_print(node)
       when "p", "pp"
         interpret_p(node)
       when "p!", "pp!"
@@ -196,6 +198,18 @@ module Crystal
       @last = Nop.new
     end
 
+    def interpret_print(node)
+      node.args.each do |arg|
+        arg.accept self
+        last = @last
+        last = last.value if last.is_a?(StringLiteral)
+
+        @program.stdout.print last
+      end
+
+      @last = Nop.new
+    end
+
     def interpret_p(node)
       node.args.each do |arg|
         arg.accept self