Predicate wrapper

1 files changed, 5 insertions, 0 deletions

diff --git a/weeb/struct.scm b/weeb/struct.scm
index 64349ef..65fa2ab 100644
--- a/weeb/struct.scm
+++ b/weeb/struct.scm
@@ -20,6 +20,7 @@
   #:use-module (ice-9 regex)
   #:export (define-struct
             make-struct
+            instance-of?
             with-accessors
             call-with-slots))
 
@@ -40,6 +41,10 @@
 instantiate the record's fields."
   (apply (record-constructor type) args))
 
+(define (instance-of? type rtd)
+  "Returns true if RTD is an instance of TYPE."
+  ((record-predicate type) rtd))
+
 ;; Bind the accessors for the fields of the record RTD to local
 ;; variables in BODY. RTD must be a record type descriptor.
 (define-syntax with-accessors