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)))

@@ -66,7 +66,7 @@
 (assert      (ds::plist::prop-exists? p :key1))
 (assert (not (ds::plist::prop-exists? p :key2)))

-(plist-set! p :key2 'value2)
+(ds::plist::set! p :key2 'value2)
 ;; p == ((:key2 value2,
 ;;        :key1 value1))