dane/d-
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Code cleanup

Browse Source
This commit is contained in:
Dane Johnson
2026-05-19 10:27:23 -05:00
parent dc0724def4
commit 56fdd158d2
2 changed files with 1 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
d-/prolog.scm
View File

@@ -43,13 +43,6 @@
(deref (var-binding exp)) (deref (var-binding exp))
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) (define (rename-vars x)
"Assign a new name to all non-literals. "Assign a new name to all non-literals.
Accepts clauses with both vars and symbolic variables" Accepts clauses with both vars and symbolic variables"

3
d-/test.scm
View File

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