(define-public (boolean-or-symbol? x)
(or (boolean? x) (symbol? x)))
+(define-public (string-or-symbol? x)
+ (or (string? x) (symbol? x)))
+
(define-public (number-or-string? x)
(or (number? x) (string? x)))
(define-public (object-type obj)
(match-predicate obj type-p-name-alist))
+
(define-public (object-type-name obj)
(type-name (match-predicate obj type-p-name-alist)))
+
(define-public (type-name predicate)
(let ((entry (assoc predicate type-p-name-alist)))
(if (pair? entry) (cdr entry)