Add weak-pair support to equal?.

diff --git a/src/runtime/equals.scm b/src/runtime/equals.scm
index 6a738d696a6aed109a261f95fb27f4cb0fad204d..b407177cbd1b6fb84384806714bdc869d62523d6 100644 (file)
--- a/src/runtime/equals.scm
+++ b/src/runtime/equals.scm
@@ -62,6 +62,10 @@ USA.
            ((string? x)
             (and (string? y)
                  (string=? x y)))
+           ((weak-pair? x)
+            (and (weak-pair? y)
+                 (equal? (%weak-car x) (%weak-car y))
+                 (equal? (weak-cdr x) (weak-cdr y))))
            ((cell? x)
             (and (cell? y)
                  (equal? (cell-contents x)

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 8c7bf7cce44681cc90288261a786b4caca0ee68f..77801963314931dc52e7391b3e89a59ae4d336da 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -207,6 +207,8 @@ USA.
          add-boot-init!
          defer-boot-action
          run-deferred-boot-actions)
+  (export (runtime equality)
+         %weak-car)
   (export (runtime predicate)
          set-predicate-tag!)
   (export (runtime rep)