Minor cleanup of object macros.

dns/internal/object.scm

@@ -11,6 +11,7 @@
   :use-module (rnrs base)
   :use-module (oop goops)
   :use-module (dns internal util)
+  :use-module ((srfi srfi-1) :select (filter-map))
   :use-module (srfi srfi-88)
   ;; Define-record-type exported and not #:replace:d, since we want a warning if
   ;; multiple instances of it is imported at once.
@@ -67,8 +68,7 @@
       ((name arg args ...)
        (inner #'(name args ...)))
       ;; Case when no #:type annotation exists.
-      ;; Should hopefully be optimized away by the compiler
-      (_ #'(if #f #f))))
+      (_ #f)))
   inner)
 
 
@@ -109,7 +109,7 @@
 
              ;; construct public-facing constructor
              (define* (make-<type> key: #,@(map handle-define*-clause #'(field ...)))
-               #,@(map (handle-validator (symbol->string (syntax->datum #'make-<type>)))
+               #,@(filter-map (handle-validator (symbol->string (syntax->datum #'make-<type>)))
                               #'(field ...))
 
                ;; bind all values to object