Rename rectangular to rectangle.

Author: objecthub

Sources/LispKit/Primitives/DrawingLibrary.swift

@@ -147,7 +147,7 @@ public final class DrawingLibrary: NativeLibrary {
     self.define(Procedure("copy-shape", copyShape))
     self.define(Procedure("line", line))
     self.define(Procedure("polygon", polygon))
-    self.define(Procedure("rectangular", rectangular))
+    self.define(Procedure("rectangle", rectangle))
     self.define(Procedure("circle", circle))
     self.define(Procedure("oval", oval))
     self.define(Procedure("arc", arc))
@@ -751,7 +751,7 @@ public final class DrawingLibrary: NativeLibrary {
     return .object(shape)
   }
 
-  private func rectangular(point: Expr, size: Expr, xradius: Expr?, yradius: Expr?) throws -> Expr {
+  private func rectangle(point: Expr, size: Expr, xradius: Expr?, yradius: Expr?) throws -> Expr {
     guard case .pair(.flonum(let x), .flonum(let y)) = point else {
       throw RuntimeError.eval(.invalidPoint, point)
     }

Sources/LispKit/Resources/Examples/Plot.scm

@@ -38,7 +38,7 @@
          (graph (flip-shape (interpolate ps))))
     (drawing
       ; Draw a bounding box
-      (draw (rectangular (rect-point rect) (rect-size rect)) 0.5)
+      (draw (rectangle (rect-point rect) (rect-size rect)) 0.5)
       ; Move rest of drawing into the bounding box
       (transform (translate (rect-x rect) (rect-y rect))
         ; Draw the coordinate axis