start propdesc

6 years ago · a59d487044
parent 8ceac4294c
commit a59d487044
1 changed files with 4 additions and 1 deletions
--- a/xenomorph/xenomorph/util.rkt
+++ b/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)