update packages

lisp/ht.el

@@ -3,9 +3,9 @@
 ;; Copyright (C) 2013 Wilfred Hughes
 
 ;; Author: Wilfred Hughes <me@wilfred.me.uk>
-;; Version: 2.3
-;; Package-Version: 20201119.518
-;; Package-Commit: 2850301d19176b8d3bb6cc8d95af6ab7e529bd56
+;; Version: 2.4
+;; Package-Version: 20210119.741
+;; Package-Commit: c4c1be487d6ecb353d07881526db05d7fc90ea87
 ;; Keywords: hash table, hash map, hash
 ;; Package-Requires: ((dash "2.12.0"))
 
@@ -116,9 +116,10 @@ for the final key, which may return any value."
   (declare (side-effect-free t))
   (inline-letevals (table keys)
     (inline-quote
-     (prog1 ,table
+     (progn
        (while ,keys
-         (setf ,table (ht-get table (pop ,keys))))))))
+         (setf ,table (ht-get ,table (pop ,keys))))
+       ,table))))
 
 (put 'ht-get* 'compiler-macro
      (lambda (_ table &rest keys)