Set consolidation: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,412: / Line 1,412: @@
 <lang txr>@(do
-   (defun mkset (p x) (if (not [p x]) (set [p x] x)))
+   (defun mkset (p x) (set [p x] (or [p x] x)))
    (defun fnd (p x) (if (eq [p x] x) x (fnd p [p x])))