(let ((name (car mob-head)) (attr (cdr mob-head)))
`(define ,(string->symbol (string-concatenate (list "make-" (symbol->string name))))
(lambda* ,(if (null? attr) '() `(#:key ,@attr))
(let ((name (car mob-head)) (attr (cdr mob-head)))
`(define ,(string->symbol (string-concatenate (list "make-" (symbol->string name))))
(lambda* ,(if (null? attr) '() `(#:key ,@attr))