start propdesc

xenomorph/xenomorph/util.rkt

@@ -12,4 +12,7 @@
     [(? procedure? proc) (proc parent)]
     [(? symbol? key) #:when parent (dict-ref parent key)]
     [(? x:int?) #:when port (decode x port)]
-    [_ (raise-argument-error 'resolve-length "fixed-size argument" x)]))
+    [_ (raise-argument-error 'resolve-length "fixed-size argument" x)]))
+
+
+(struct PropertyDescriptor (kvs) #:transparent)