Ensure length of medium sized keyword is written as a Short.

This commit is contained in:
Daniel Mason 2020-11-18 09:46:37 +00:00
parent b61bf594a1
commit 5e0677cc85
No known key found for this signature in database
GPG key ID: A1269950A7BB812C

View file

@ -649,7 +649,7 @@
(md-count? len)
(do (write-id out id-kw-md)
(write-lg-count out len))
(write-md-count out len))
;; :else ; Unrealistic
;; (do (write-id out id-kw-lg)