Welcome to the CHICKEN Scheme pasting service
why would the first clause compile but the second not added by C-Keen on Sat Sep 3 00:08:14 2011
(if listeggs (display (list-available-extensions *default-transport* *default-location*)) (install (apply-mappings (reverse eggs)))) (cond (listeggs (display (list-available-extensions *default-transport* *default-location*))) (*show-foreign-deps* (show-foreign-dependencies eggs)) (else (install (apply-mappings (reverse eggs)))))