Code cleanup

d-/prolog.scm

@@ -43,13 +43,6 @@
       (deref (var-binding exp))
       exp))
 
-;; (define-syntax deref
-;;   (syntax-rules ()
-;;     [(_ exp)
-;;      (begin (while (and (var? exp) (bound? exp))
-;;               (set! exp (var-binding exp)))
-;;             exp)]))
-
 (define (rename-vars x)
   "Assign a new name to all non-literals. 
 Accepts clauses with both vars and symbolic variables"

d-/test.scm

@@ -9,8 +9,7 @@
 
 (define (assert expected actual eq? fail)
   (when (and (not (eq? expected actual)))
-    (format #t "fail - expected ~a but got ~a" expected actual)
-    (newline)
+    (format #t "fail - expected ~a but got ~a~%" expected actual)
     (fail)))
 
 (define (equal-or-any? expected actual)