Renamed set-print-fn to set-print-fn! and pass the printer as argument.