l...@gnu.org (Ludovic Courtès) writes:
> Hello,
>
> Andreas Rottmann writes:
>
>> So, that's around 5% improvment (on the ZIP benchmark) for an IMHO
>> significantly more hackish implementation. I'm not sure that's worth
>> it. WDYT?
>
> Was it with ‘fixnum?’ inline, or with the ‘fixnum?’ instru
Hello,
Andreas Rottmann writes:
> So, that's around 5% improvment (on the ZIP benchmark) for an IMHO
> significantly more hackish implementation. I'm not sure that's worth
> it. WDYT?
Was it with ‘fixnum?’ inline, or with the ‘fixnum?’ instruction?
It’s ironic that while R6RS fixnums are a pe
Andreas Rottmann writes:
> l...@gnu.org (Ludovic Courtès) writes:
>
>> Hi Andreas,
>>
>> I’m all for your suggestion.
>>
>> Andreas Rottmann writes:
>>
>>> + (define-syntax define-fxop*
>>> +(syntax-rules ()
>>> + ((_ name op)
>>> + (define name
>>> +(case-lambda
>>> + (
l...@gnu.org (Ludovic Courtès) writes:
> Hi Andreas,
>
> I’m all for your suggestion.
>
> Andreas Rottmann writes:
>
>> + (define-syntax define-fxop*
>> +(syntax-rules ()
>> + ((_ name op)
>> + (define name
>> + (case-lambda
>> + ((x y)
>> +(assert-fixnum x y)
>>
Hi Andreas,
I’m all for your suggestion.
Andreas Rottmann writes:
> + (define-syntax define-fxop*
> +(syntax-rules ()
> + ((_ name op)
> + (define name
> + (case-lambda
> +((x y)
> + (assert-fixnum x y)
> + (op x y))
> +(args
> + (ass
* module/rnrs/arithmetic/fixnums.scm (assert-fixnum): Is now a
macro.
(assert-fixnums): New procedure checking a the elements of a list
for fixnum-ness. All callers applying `assert-fixnum' to a list
now changed to use this procedure.
* module/rnrs/arithmetic/fixnums.scm (define-fxop*): N
