iens

commit 920a4d882f451f2117f146bf64c959dc383f3d7a
parent 99f98a1fab6bff7a6f36421b04faa84a1d75d21e
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Tue, 25 Aug 2026 17:44:36 +0000

add-entry command precondition is corrected
Diffstat:
M
src/iens.scm
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/iens.scm b/src/iens.scm
@@ -553,7 +553,7 @@
         (else (assert #f "Unknown type parameter for " (cadr args)))))
 
 (define (add-entry* ctime spec notes)
-  (assert (or (string? spec) (and (list? spec) (= 3 (length spec))))
+  (assert (or (string? spec) (and (list? spec) (<= 3 (length spec) 4)))
           "Bad entry spec " spec)
   (trace `(add-entry ,ctime ,spec ,notes))
   (let ((new-id