From ac448353edf432e3ba46ab478033fd99b0034f85 Mon Sep 17 00:00:00 2001 From: Brett Johnson Date: Mon, 30 Apr 2018 01:10:41 -0400 Subject: [PATCH] Add helpful funcs --- helpers.scm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/helpers.scm b/helpers.scm index 476831b..7ec8e1d 100644 --- a/helpers.scm +++ b/helpers.scm @@ -144,3 +144,17 @@ (define classname-parse 'class) (define next-parsedfile cdr) (define get-top-parsedfile car) +(define get-instance-state cadr) +(define atom? + (lambda (v) + (not (list? v)))) +(define (debug-func? func . args) + (cond + ((func (car args)) + (error "debug equal" args)) + (else (cadr args)))) +(define (debug-eq? . args) + (cond + ((equal? (car args) (cadr args)) + (error "debug equal" args)) + (else (cadr args))))