From: Mike D. Lowis <mike.lowis@gentex.com>
Date: Thu, 10 Sep 2015 16:19:32 +0000 (-0400)
Subject: Deleted unused scheme sources
X-Git-Url: https://git.mdlowis.com/?a=commitdiff_plain;h=26ac5e8eb1ede831594728244891b1e3e0f4a9d3;p=proto%2Fsclpl.git

Deleted unused scheme sources
---

diff --git a/inc/test-macros.scm b/inc/test-macros.scm
deleted file mode 100644
index d557870..0000000
--- a/inc/test-macros.scm
+++ /dev/null
@@ -1,52 +0,0 @@
-
-(define-syntax def-test
-  (syntax-rules ()
-    ((_ desc body ...)
-      (register-test!
-        (cons desc
-          (lambda () body ...))))))
-
-(define-syntax check-error
-  (syntax-rules ()
-    ((_ expect expr)
-      (let ((prev error))
-        (define result
-          (call/cc
-            (lambda (err)
-              (set! error err)
-              expr)))
-        (set! error prev)
-        (equal? expect result)))))
-
-(define-syntax check-exception
-  (syntax-rules ()
-    ((_ expect expr)
-      (equal? expect
-        (call/cc
-          (lambda (cont)
-            (with-exception-handler
-              (lambda (x) (cont x))
-              (lambda ()  expr))))))))
-
-(define-syntax check-parse-error
-  (syntax-rules ()
-    ((_ expect expr)
-      (begin
-        (define etyp-matches? #f)
-        (define emsg
-          (with-output-to-string
-            (lambda ()
-              (set! etyp-matches?
-                (equal? 'parse-error
-                  (call/cc
-                    (lambda (cont)
-                      (with-exception-handler
-                        (lambda (x) (cont x))
-                        (lambda ()  expr)))))))))
-        ;(print "----")
-        ;(print etyp-matches? " " (equal? emsg expect))
-        ;(print "\"" emsg "\"\n")
-        ;(print "\"" expect "\"\n")
-        ;(print "----")
-        (and etyp-matches? (equal? emsg expect))))))
-