Finalize release 2.0.2.

Author: objecthub

CHANGELOG.md

@@ -1,5 +1,11 @@
 # Changelog
 
+## 2.0.2 (2021-08-08)
+
+- Fixed serious bug in procedure `load` (previously, `load` always returned no result instead of the result of the last executed expression).
+- Included new libraries: `(srfi 215)`, `(srfi 216)`, `(srfi 222)`, `(lispkit text-table)`
+- Extended sample code `Math.scm`
+
 ## 2.0.1 (2021-07-02)
 
 - New procedures in library `(lispkit draw)`: `bitmap->bytevector`, `bitmap-blur`, `bitmap-crop`

LispKit.xcodeproj/project.pbxproj

@@ -4200,7 +4200,7 @@
 					"@executable_path/../Frameworks",
 					"@loader_path/Frameworks",
 				);
-				MARKETING_VERSION = 2.0.1;
+				MARKETING_VERSION = 2.0.2;
 				MTL_ENABLE_DEBUG_INFO = INCLUDE_SOURCE;
 				MTL_FAST_MATH = YES;
 				PRODUCT_BUNDLE_IDENTIFIER = net.objecthub.LispKitTools;
@@ -4236,7 +4236,7 @@
 					"@executable_path/../Frameworks",
 					"@loader_path/Frameworks",
 				);
-				MARKETING_VERSION = 2.0.1;
+				MARKETING_VERSION = 2.0.2;
 				MTL_FAST_MATH = YES;
 				PRODUCT_BUNDLE_IDENTIFIER = net.objecthub.LispKitTools;
 				PRODUCT_NAME = "$(TARGET_NAME:c99extidentifier)";
@@ -4482,7 +4482,7 @@
 					"@executable_path/Frameworks",
 					"@loader_path/Frameworks",
 				);
-				MARKETING_VERSION = 2.0.1;
+				MARKETING_VERSION = 2.0.2;
 				MTL_ENABLE_DEBUG_INFO = INCLUDE_SOURCE;
 				MTL_FAST_MATH = YES;
 				PRODUCT_BUNDLE_IDENTIFIER = net.objecthub.LispKit;
@@ -4522,7 +4522,7 @@
 					"@executable_path/Frameworks",
 					"@loader_path/Frameworks",
 				);
-				MARKETING_VERSION = 2.0.1;
+				MARKETING_VERSION = 2.0.2;
 				MTL_FAST_MATH = YES;
 				PRODUCT_BUNDLE_IDENTIFIER = net.objecthub.LispKit;
 				PRODUCT_NAME = LispKit;

Sources/LispKit/Info.plist

@@ -17,7 +17,7 @@
 	<key>CFBundlePackageType</key>
 	<string>FMWK</string>
 	<key>CFBundleShortVersionString</key>
-	<string>2.0.1</string>
+	<string>2.0.2</string>
 	<key>CFBundleSignature</key>
 	<string>????</string>
 	<key>CFBundleVersion</key>

Sources/LispKit/Resources/Examples/Math.scm

@@ -38,12 +38,22 @@
                            ((zero? (remainder n d)) #f)
                            (else                    (loop (+ d 2))))))))
 
-;; Returns the `n`-th Fibonacci number
+;; Returns the `n`-th Fibonacci number.
 (define (fib n)
   (if (fx< n 2)
       n
       (fx+ (fib (fx1- n)) (fib (fx- n 2)))))
 
+;; Returns the `n`-th Fibonacci number via a tail-recursive algorithm.
+(define (fast-fib n)
+  (define (iter n a b)
+    (if (fx< n 3)
+        b
+        (iter (fx1- n) b (fx+ a b))))
+  (if (fx< n 2)
+      n
+      (iter n 1 1)))
+
 ;; Returns the factorial of integer `n`
 (define (fac n)
   (if (= n 0)

Sources/LispKitRepl/main.swift

@@ -36,7 +36,7 @@ guard repl.flagsValid() else {
 if repl.shouldRunRepl() {
   #if SPM
     guard repl.configurationSuccessfull(implementationName: "LispKit",
-                                        implementationVersion: "2.0.1",
+                                        implementationVersion: "2.0.2",
                                         includeInternalResources: false,
                                         defaultDocDirectory: "LispKit",
                                         features: features) else {

Tests/LispKitTests/Info.plist

@@ -15,7 +15,7 @@
 	<key>CFBundlePackageType</key>
 	<string>BNDL</string>
 	<key>CFBundleShortVersionString</key>
-	<string>2.0.1</string>
+	<string>2.0.2</string>
 	<key>CFBundleSignature</key>
 	<string>????</string>
 	<key>CFBundleVersion</key>