[Larceny-users] Typo in list.sch for assoc-string

[Ray Racine]

I am on a roll today. :)

Typo in  list.sch in assoc-string.
string-=? should be string=?

diff --git a/trunk/larceny_src/src/Lib/Common/list.sch
b/trunk/larceny_src/src/Lib/Common/list.sch
index 95b7487..ef0d086 100644
--- a/trunk/larceny_src/src/Lib/Common/list.sch
+++ b/trunk/larceny_src/src/Lib/Common/list.sch
@@ -568,7 +568,7 @@
 (define assoc-string
   (letrec ((assoc
             (lambda (key list)
-              (cond ((pair? list) (if (string-=? key (caar list))
+              (cond ((pair? list) (if (string=? key (caar list))
                                       (car list)
                                       (assoc key (cdr list))))
                     ((null? list) #f)
-------------- next part --------------
HTML attachment scrubbed and removed