December 20 2006

  Today I wrote a closure function for my "nautilus" project.  The function peek out a character from
a port, firstly; if the character is a white space, it will invoke the "white-spaces" function eat up
more white spaces.

  But I felt the code is not simply.  So, I changed the codes of the two function.  The "white-space*"
will eat up white spaces until meeting a non-white space.  The "white-spaces" peek out a character from
a port firstly; if the character is a white space, it will call the "white-spaces*" function eat up
more white spaces.