Fixes environment-bindings. Renames date-time-has-dst to date-time-has-dst?.

Author: objecthub

Sources/LispKit/Primitives/CoreLibrary.swift

@@ -1128,7 +1128,12 @@ public final class CoreLibrary: NativeLibrary {
     var res = Expr.null
     for sym in environment.boundSymbols {
       if let value = environment[sym] {
-        res = .pair(.pair(.symbol(sym), value), res)
+        switch value {
+          case .undef, .uninit(_):
+            res = .pair(.pair(.symbol(sym), .null), res)
+          default:
+            res = .pair(.pair(.symbol(sym), .pair(value, .null)), res)
+        }
       }
     }
     return res

Sources/LispKit/Primitives/DateTimeLibrary.swift

@@ -108,7 +108,7 @@ public final class DateTimeLibrary: NativeLibrary {
     self.define(Procedure("date-time-weekday", self.dateTimeWeekday))
     self.define(Procedure("date-time-week", self.dateTimeWeek))
     self.define(Procedure("date-time-dst-offset", self.dateTimeDstOffset))
-    self.define(Procedure("date-time-has-dst", self.dateTimeHasDst))
+    self.define(Procedure("date-time-has-dst?", self.dateTimeHasDst))
     self.define(Procedure("next-dst-transition", self.nextDstTransition))
     self.define(Procedure("date-time-hash", self.dateTimeHash))
   }