Force garbage collection once the managed object pool is being de-initialized. Bump version to 1.4.1.

Author: objecthub

CHANGELOG.md

@@ -1,5 +1,17 @@
 # Changelog
 
+## 1.4.1 (2018-06-23)
+- Fix memory leaks
+- Provide a comfortable command-line interface supporting both a read-eval-print loop and the execution of scripts
+- Prelude and libraries path preferences are now handled correctly and do not result in access issues anymore
+- Programs blocking on functions like `read` can now be terminated
+- Minor bugs in bitwise operations for exact integers of arbitrary size fixed
+- `string-split` now returns a list instead of a vector
+- Complete rewrite of the error reporting subsystem, including support for `file-error?` and `read-error?`
+- New library: `(lispkit test)`
+- New SRFI libraries: SRFI 69, SRFI 129, SRFI 137, SRFI 145, SRFI 151
+- New example code for coroutines, HTTP support, and a small compiler for arithmetic expressions
+
 ## 1.4 (2018-03-30)
 - Migrated project to Xcode 9.3 and Swift 4
 - Bug fixes (esp. in `syntax-rules`)

Sources/LispKit/Base/ManagedObjectPool.swift

@@ -42,12 +42,27 @@ public final class ManagedObjectPool: CustomStringConvertible {
   /// Pool of managed objects.
   private var objectPool: ObjectPool<ManagedObject>
 
+  /// Does this managed object pool own the managed objects? If yes, the objects will be
+  /// cleaned as soon as this managed object pool is being de-initialized.
+  private let ownsManagedObjects: Bool
+  
   /// Initializes an empty managed object pool.
-  public init() {
+  public init(ownsManagedObjects: Bool = true) {
     self.tag = 0
     self.cycles = 0
     self.rootSet = ObjectPool<TrackedObject>()
     self.objectPool = ObjectPool<ManagedObject>()
+    self.ownsManagedObjects = ownsManagedObjects
+  }
+  
+  /// Destory all potential cyclic dependencies if this managed object pool owns the managed
+  /// objects.
+  deinit {
+    if self.ownsManagedObjects {
+      for obj in self.objectPool {
+        obj.clean()
+      }
+    }
   }
 
   /// Returns number of tracked objects.

Sources/LispKit/Info.plist

@@ -15,7 +15,7 @@
 	<key>CFBundlePackageType</key>
 	<string>FMWK</string>
 	<key>CFBundleShortVersionString</key>
-	<string>1.4.0</string>
+	<string>1.4.1</string>
 	<key>CFBundleSignature</key>
 	<string>????</string>
 	<key>CFBundleVersion</key>

Sources/LispKitRepl/main.swift

@@ -123,7 +123,7 @@ var cmdLineArgs = flags.parameters.isEmpty ? [CommandLine.arguments.first!] : fl
 #if SPM
   let context = Context(console: console,
                         implementationName: "LispKit",
-                        implementationVersion: "1.4.0",
+                        implementationVersion: "1.4.1",
                         commandLineArguments: cmdLineArgs,
                         includeInternalResources: false,
                         includeDocumentPath: searchDocs.wasSet ? "LispKit" : nil)