mini-mes: Fix for assq.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 2 Apr 2017 11:18:22 +0000 (13:18 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 2 Apr 2017 11:18:22 +0000 (13:18 +0200)
* scaffold/mini-mes.c (assq): Use eq_p iso ==.  Fixes
  tests/display.test ("write alarm").

scaffold/mini-mes.c

index a67277a53747e34fa600559f4389a49cbe0c74f0..e0d92c1375c25da264565b4be0c1d0cd39bc12d1 100644 (file)
@@ -574,9 +574,9 @@ call (SCM fn, SCM x)
 SCM
 assq (SCM x, SCM a)
 {
-  //FIXME: eq_p
-  //while (a != cell_nil && eq_p (x, CAAR (a)) == cell_f) a = CDR (a);
-  while (a != cell_nil && x != CAAR (a)) a = CDR (a);
+  //FIXME: move into fast-non eq_p-ing assq core:assq?
+  //while (a != cell_nil && x != CAAR (a)) a = CDR (a);
+  while (a != cell_nil && eq_p (x, CAAR (a)) == cell_f) a = CDR (a);
   return a != cell_nil ? car (a) : cell_f;
 }