scripts choke when a definition follows an expression

[Abdulaziz Ghuloum]

Andre van Tonder reported that scripts choke when a definition follows an expression.

Sample script which is legal in r6rs but is rejected by ikarus:

  (import (rnrs))
  (display "Hello\n")
  (define (foo) "bye\n")
  (display (foo))

Ikarus produces:

unhandled exception:
 Condition components:
   1. &error
   2. &who: expander
   3. &message: "invalid expression"
   4. &irritants: ((define (foo) "bye\n"))

Instead of displaying:
Hello
bye

[Abdulaziz Ghuloum (aghuloum)]

Fixed in revision 968.

[Abdulaziz Ghuloum (aghuloum)]

Fixed in revision 968.

[Abdulaziz Ghuloum (aghuloum)]

Targeted for milestone 0.0.2