Welcome to the CHICKEN Scheme pasting service
custom init files for csi added by mario-goulart on Tue Jan 30 14:47:07 2018
(let ((args (command-line-arguments)))
(cond ((null? args)
(print "using default .csirc code")
;; ...
)
(else
(let ((profile (string->symbol (car args))))
(case profile
((foo) (load "path/to/foo"))
;; ...
)))))