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)
_______________________________________________ Larceny-users mailing list Larceny-users@lists.ccs.neu.edu https://lists.ccs.neu.edu/bin/listinfo/larceny-users