Reduce (<= a b ...) to (and (<= a b) ...) in genio column tracking.
authorTaylor R Campbell <campbell@mumble.net>
Thu, 10 Dec 2009 23:29:17 +0000 (18:29 -0500)
committerTaylor R Campbell <campbell@mumble.net>
Thu, 10 Dec 2009 23:29:17 +0000 (18:29 -0500)
commitd79a1d34010b253adc59f1302a5b0dba82368df3
tree4d1e9239ded9fee7088180fa8d48444bf4e2c9ff
parent6d1253b90924fbfece9673b74ea17216fd64c6f6
Reduce (<= a b ...) to (and (<= a b) ...) in genio column tracking.

Neither SF nor LIAR currently performs that reduction, so every
character written to a generic I/O port was causing a rest list to be
consed up and control to go through a generic microcode primitive
trampoline to do the reduction at run-time.

Also use FIX:<= rather than <=, since the numbers in question are all
fixnums.
src/runtime/genio.scm