quad-attr-remove and remove*

quad/tests-typed.rkt

@@ -45,4 +45,10 @@
 (check-equal? (quad-attr-set* (box '()) 'foo 'zam 'bar 'boo) (box '(foo zam bar boo)))
 (check-equal? (quad-attr-set* (box '(foo bar)) 'foo 'zam 'bar 'boo) (box '(foo zam bar boo)))
 
+(check-equal? (quad-attr-remove (box '(foo bar zim zam)) 'foo) (box '(zim zam)))
+(check-equal? (quad-attr-remove (box #f) 'zim) (box))
+(check-equal? (quad-attr-remove* (box '(foo bar zim zam ding dong)) 'foo 'ding) (box '(zim zam)))
+(check-equal? (quad-attr-remove* (box #f) 'zim) (box))
+
+
 

quad/utils-typed.rkt

@@ -133,4 +133,19 @@
 (: quad-attr-set* (Quad (U QuadAttrKey QuadAttrValue) * . -> . Quad))
 (define (quad-attr-set* q . kvs)
   (for/fold ([current-q q])([kv-list (in-list (slice-at kvs 2))])
-    (apply quad-attr-set current-q kv-list)))
+    (apply quad-attr-set current-q kv-list)))
+
+;; functionally remove a quad attr. Similar to hash-remove
+(provide quad-attr-remove)
+(: quad-attr-remove (Quad QuadAttrKey . -> . Quad))
+(define (quad-attr-remove q k)
+  (if (quad-attrs q)
+      (quad (quad-name q) (hash-remove (quad-attrs q) k) (quad-list q))
+      q))
+
+;; functionally remove multiple quad attrs. Similar to hash-remove*
+(provide quad-attr-remove*)
+(: quad-attr-remove* (Quad QuadAttrKey * . -> . Quad))
+(define (quad-attr-remove* q . ks)
+  (for/fold ([current-q q])([k (in-list ks)])
+    (quad-attr-remove current-q k)))