1 files changed, 1 insertions(+), 1 deletions(-)

M rsdb/tiny-prolog.scm

@@ 126,7 126,7 @@
                   (pair? y))
                 (let ((new (unify (car x) (car y) env)))
                   (and new (unify (cdr x) (cdr y) new))))
-            ((eq? x y) env)
+            ((equal? x y) env)
             (else      #f))))
 
   (define (check-args g n)