iterate in a way that allows #false values

quad/quadwriter/attrs.rkt

@@ -31,9 +31,8 @@
   (define new-hash (make-hasheq))
   (for ([(k v) (in-hash dest-hash)])
     (hash-set! new-hash k v))
-  (for* ([k (in-list block-attrs)]
+  (for ([(k v) (in-hash source-hash)]
-         [v (in-value (hash-ref source-hash k #f))]
+        #:when (memq k block-attrs))
-         #:when v)
     (hash-set! new-hash k v))
   new-hash)