Add some utility functions

2025-09-20 00:54:57 -07:00
parent 7f68c8fcbf
commit bdb4bf6824
2 changed files with 42 additions and 1 deletions
--- a/src/lisp.c
+++ b/src/lisp.c
@ -2594,8 +2594,8 @@ DEFUN(plist_rem, "plist-rem", (LispVal * plist, LispVal *key, LispVal *pred)) {
                return refcount_ref(TAIL(TAIL(plist)));
            } else {
                Fsettail(TAIL(prev), TAIL(TAIL(cur)));
+                return refcount_ref(plist);
            }
-            return Qnil;
        }
    }
    return refcount_ref(plist);