fixed mudules in alists

2019-10-01 23:34:36 +02:00
parent 8076c91600
commit 2cd0c2c0c0
4 changed files with 5 additions and 6 deletions
@@ -139,7 +139,7 @@
                (else (plist-get-intern (cddr props) prop))))
        (plist-get-intern props prop)))

-    (define (set plist prop value)
+    (define (set! plist prop value)
      (mutate plist (set-type! (pair (pair prop (pair value (first plist))) ())
                               :plist)))