search

hyln9 / ikarus

Optimizing incremental native-code compiler for R6RS scheme. This is a forked repository.
https://launchpad.net/ikarus
Other
5 stars 0 forks source link

flatten-codes raises exception: "no exception label" #158

Closed hyln9 closed 10 years ago

hyln9 commented 10 years ago

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))))

Launchpad Details: #LP255879 Göran Weinholt - 2008-08-07 17:49:47 -0400

hyln9 commented 10 years ago

Fixed in 1575.

Launchpad Details: #LPC Abdulaziz Ghuloum - 2008-08-07 18:06:19 -0400