Small tweaks for final 1.3 release.

Author: objecthub

CHANGELOG.md

@@ -1,5 +1,13 @@
 # Changelog
 
+## 1.3 (2017-12-03)
+- Support simple HTTP API
+- Support compression for bytevectors
+- Implement call tracing
+- Fixed bug preventing some internal definitions to not work
+- Support all standard R7RS small Scheme libraries
+- Support for: `(srfi 158)`, `(lispkit wt-tree)`, `(lispkit object)`
+
 ## 1.2 (2017-10-22)
 - Support for tail patterns in `syntax-rules`
 - Support for `features` and `cond-expand`

README.md

@@ -49,8 +49,9 @@ _LispKit_ provides support for the following core features, many of which are ba
     `(scheme eval)`, `(scheme file)`, `(scheme inexact)`, `(scheme lazy)`, `(scheme load)`,
     `(scheme process-context)`, `(scheme read)`, `(scheme repl)`, `(scheme time)`, `(scheme write)`,
     `(scheme r5rs)`
-  - LispKit-specific libraries: `(lispkit datatype)`, `(lispkit iteration)`, `(lispkit set)`, `(lispkit heap)`,
-    `(lispkit wt-tree)`, `(lispkit prettify)`, `(lispkit json)`, and `(lispkit pdf)`
+  - LispKit-specific libraries: `(lispkit datatype)`, `(lispkit object)`, `(lispkit iteration)`,
+    `(lispkit set)`, `(lispkit heap)`, `(lispkit wt-tree)`, `(lispkit prettify)`, `(lispkit json)`,
+    and `(lispkit pdf)`
 
 _LispKit_ is incompatible or incomplete with respect to the following R7RS features:
 

Sources/LispKit/Info.plist

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

Sources/LispKit/Runtime/VirtualMachine.swift

@@ -627,31 +627,31 @@ public final class VirtualMachine: TrackedObject {
         let stackTrace = self.getStackTrace()
         var builder = StringBuilder()
         let offset = tailCall ? 0 : 1
-        builder.append(tailCall ? "↪︎ (" : "➝ (",
-                       width: (stackTrace.count + offset) * 2 + 3,
+        builder.append(tailCall ? "↪︎" : "⟶",
+                       width: (stackTrace.count + offset) * 2 + 1,
                        alignRight: true)
-        builder.append(proc.originalName ?? proc.name)
+        builder.append(" (", proc.originalName ?? proc.name)
         for i in 0..<n {
           builder.append(" ", self.stack[self.sp &- n &+ i].description)
         }
         builder.append(")")
-        if stackTrace.count > 1 {
-          builder.append(" in ", stackTrace.last!.originalName ?? stackTrace.last!.name)
+        if let currentProc = stackTrace.last {
+          builder.append(" in ", currentProc.originalName ?? currentProc.name)
         }
         builder.append("\n")
         self.context.console.print(builder.description)
       }
     }
   }
 
-  @inline(__always) private func printReturnTrace(tailCall: Bool = false) {
+  @inline(__always) private func printReturnTrace(tailCall: Bool = false, noOffset: Bool = false) {
     if self.traceCalls && self.sp > 0 {
       var builder = StringBuilder()
-      let offset = tailCall ? 0 : 1
-      builder.append(tailCall ? "↩︎ " : " ⃪ ",
-                     width: (self.getStackTrace().count + offset) * 2 + 2,
+      let offset = tailCall || noOffset ? 0 : 1
+      builder.append(tailCall ? "↩︎" : "⟵",
+                     width: (self.getStackTrace().count + offset) * 2 + 1,
                      alignRight: true)
-      builder.append(self.stack[self.sp &- 1].description)
+      builder.append(" ", self.stack[self.sp &- 1].description)
       builder.append("\n")
       self.context.console.print(builder.description)
     }
@@ -1315,7 +1315,7 @@ public final class VirtualMachine: TrackedObject {
             self.sp = self.registers.initialFp &- 1
             return res
           } else {
-            self.printReturnTrace(tailCall: false)
+            self.printReturnTrace(tailCall: false, noOffset: true)
             self.exitFrame()
           }
         case .branch(let offset):

Sources/LispKitRepl/Info.plist

@@ -15,11 +15,11 @@
 	<key>CFBundlePackageType</key>
 	<string>APPL</string>
 	<key>CFBundleShortVersionString</key>
-	<string>1.2</string>
+	<string>1.3</string>
 	<key>CFBundleSignature</key>
 	<string>????</string>
 	<key>CFBundleVersion</key>
-	<string>1.2</string>
+	<string>1.3</string>
 	<key>LSMinimumSystemVersion</key>
 	<string>$(MACOSX_DEPLOYMENT_TARGET)</string>
 	<key>NSHumanReadableCopyright</key>