Fix font getter

Author: nicklockwood

ShapeScript/StandardLibrary.swift

@@ -266,7 +266,7 @@ extension Dictionary where Key == String, Value == Symbol {
         "font": .property(.font, { parameter, context in
             context.font = parameter.stringValue
         }, { context in
-            .texture(context.material.texture)
+            .string(context.font)
         }),
         // Debug
         "print": .command(.tuple) { value, context in

ShapeScriptTests/InterpreterTests.swift

@@ -921,6 +921,16 @@ class InterpreterTests: XCTestCase {
         XCTAssertEqual(context.font, "Courier")
     }
 
+    func testGetValidFont() throws {
+        let program = """
+        font "Courier"
+        print font
+        """
+        let delegate = TestDelegate()
+        XCTAssertNoThrow(try evaluate(parse(program), delegate: delegate))
+        XCTAssertEqual(delegate.log, ["Courier"])
+    }
+
     func testSetValidFontWithStringInterpolation() throws {
         let program = try parse("font (\"Cou\" \"rier\")")
         let context = EvaluationContext(source: program.source, delegate: nil)