Example in Operators manual section

Hi for all.

I'm copy the folowing example from maxima manual:
************************************
(%i1) unitfrac(r) := block([uf : [], q],
     if not(ratnump(r)) then error("The input to 'unitfrac' must be a rational 
number"),
     while r # 0 do (
         uf : cons(q : 1/ceiling(1/r), uf),
         r : r - q),
     reverse(uf)); 
(%i2) unitfrac (9/10);
**************************************

Maxima accept (%i1) but when i type (%i2) the maxima interactive prompt do not 
return.

Is %i1 correct?

I am using maxima 5.9.2 under CLISP 2.33.2 (2004-06-02).

Thanks.


-- 
Data Estelar 2453941.853148
http://usr.solar.com.br/~ficmatin
Desejo-lhe Paz, Vida Longa e Prosperidade.
S?o Bem Vindas Mensagens no Formato Texto Gen?rico com Acentos.