flatten-codes raises exception: "no exception label"

[Gwen Weinholt]

This code doesn't work with fx<?, but does work with <:

Ikarus Scheme version 0.0.3+ (revision 1574, build 2008-08-05, 64-bit)
Copyright (c) 2006-2008 Abdulaziz Ghuloum

> (define (fxlog2 x)
    (let lp ((x x) (y 1))
      (if (fx<? y (fixnum-width))
          (lp (fxior x (fxarithmetic-shift-right x y))
              (fxarithmetic-shift-left y 1))
          (fxbit-count x))))
Unhandled exception
 Condition components:
   1. &error
   2. &who: flatten-codes
   3. &message: "no exception label"
   4. &irritants: ()
> (define (fxlog2 x)
    (let lp ((x x) (y 1))
      (if (< y (fixnum-width))
          (lp (fxior x (fxarithmetic-shift-right x y))
              (fxarithmetic-shift-left y 1))
          (fxbit-count x))))
>

[Abdulaziz Ghuloum (aghuloum)]

Fixed in 1575.