Add helpful funcs

Brett Johnson · Brett Johnson · commit ac448353edf4 · 2018-04-30T01:10:41.000-04:00
diff --git 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))))
