shithub: sl

Info  •  Files  •  Log  •  Branches

assoc-list: need apply on further iterations

--- a/boot/sl.boot

+++ b/boot/sl.boot

@@ -136,7 +136,7 @@

          #fn("n10A61:")) __finish)

             __init_globals #fn("n07021d37022@402384w4^147025d;350426;J50427w8429w:4qw;47<w=47>w?47@wA:" #(*os-name*

   "macos" #fn("n0702161:" #(princ "\e[0m\e[1m#;> \e[0m"))

-*linefeed*

+*linefeed*

 422c37023@G08424c3=07526514q@4027^184;3904288451708622c37029@402:^185;3=042;857<865387;3D042=8751;39047>8761:" #(*os-name*

   "unknown" "plan9" "home" "macos" princ "\e]0;StreetLISP v0.999\a" "HOME" #fn(os-getenv) "lib/slrc"

   ".slrc" #fn(str) *directory-separator* #fn(path-exists?) load) __rcscript)

--- a/src/system.sl

+++ b/src/system.sl

@@ -303,7 +303,7 @@

   (let ((s (cdr lst)))

     (when (cons? s)

       (cons (cons (car lst) (car s))

-            (assoc-list (cdr s))))))

+            (apply assoc-list (cdr s))))))

 (def (assoc item lst)

   (cond ((equal? (caar lst) item) (car lst))