Fix procedure load. It always returned no result, instead of the result of the last evaluated expression.

Author: objecthub

README.md

@@ -209,7 +209,7 @@ framework:
   - [SRFI 221: Generator/accumulator sub-library](https://srfi.schemers.org/srfi-221/srfi-221.html)
   - [SRFI 222: Compound Objects](https://srfi.schemers.org/srfi-222/srfi-222.html)
   - [SRFI 223: Generalized binary search procedures](https://srfi.schemers.org/srfi-223/srfi-223.html)
-  
+
 
 ## Project
 

Sources/LispKit/Primitives/SystemLibrary.swift

@@ -340,6 +340,12 @@ public final class SystemLibrary: NativeLibrary {
     switch args.first! {
       case .null:
         return (CoreLibrary.voidProc, [])
+      case .pair(let expr, .null):
+        let code = try Compiler.compile(expr: .pair(expr, .null),
+                                        in: .global(try env.asEnvironment()),
+                                        optimize: true,
+                                        inDirectory: try sourceDir.asString())
+        return (Procedure(code), [])
       case .pair(let expr, let rest):
         let source = Expr.pair(
           expr,