From 56fdd158d2f4c9aa542e7d22300c968a6301c2bd Mon Sep 17 00:00:00 2001 From: Dane Johnson Date: Tue, 19 May 2026 10:27:23 -0500 Subject: [PATCH] Code cleanup --- d-/prolog.scm | 7 ------- d-/test.scm | 3 +-- 2 files changed, 1 insertion(+), 9 deletions(-) diff --git a/d-/prolog.scm b/d-/prolog.scm index 562fdfe..04f60f1 100644 --- a/d-/prolog.scm +++ b/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" diff --git a/d-/test.scm b/d-/test.scm index b3a4471..66121cf 100644 --- a/d-/test.scm +++ b/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)