hey all....

the following code is an excerpt from Corre's publication, "Icon
Programming  for Humanists":

#!/opt/local/bin/icon

global letters
procedure main()
    while word_length(read())
    printout()
end

procedure word_length(line)
local length
initial letters := list(20,0)
if line == "." then stop("Bye")
    line ? while length := (write(*tab(many(&letters)))) do {
       tab(many(' .,;:!'))
       letters[length] +:= 1
       }
    return
end

procedure printout()
local n
    every n:= 1 to 10 do
       write("There are ",letters[n],"",n,"­letter words.")
    return
end

Nothing terribly difficult. I had to "local"ize n and length, and
"global"ize letters, to stop the compiler from squawking.

The program works, but for some reason printout() never gets called.
Can anybody spot why? TIA....
--
Sid

------------------------------------------------------------------------------
Come build with us! The BlackBerry(R) Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9 - 12, 2009. Register now!
http://p.sf.net/sfu/devconference
_______________________________________________
Unicon-group mailing list
Unicon-group@list...
https://lists.sourceforge.net/lists/listinfo/unicon-group