[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)

[William D Clinger]

Post by Ray Racine
I am on a roll today. :)

Thanks, Ray. Those bugs are now tickets #552 and #553.

Their fixes missed v0.962 by just a couple of days.

Will