guile 2.1.7 skips while condition

[Arne Babenhauserheide]

Hi,

I have a file in which guile 2.1.7 runs a loop like the following

    (while (not (eof-object? nextchar))
           (write (eof-object? nextchar))
           (set! nextchar (read-char)) ...)

But ends with #<eof>. Guile 2.0 does not show the #<eof>.

However I did not manage to reproduce it in a small example, therefore I
pastebinned the whole file:

script: https://paste.pound-python.org/show/0IlalBrxVH7KHjW83ayu/
input: https://paste.pound-python.org/show/ZxQsazFfwVrvz9f4SU4f/

The file has some added debug output (hence the #f#f#f ... in the output below)

call: guile script input

This results in the error:

$ wget -O script https://paste.pound-python.org/raw/0IlalBrxVH7KHjW83ayu/
$ wget -O input https://paste.pound-python.org/raw/ZxQsazFfwVrvz9f4SU4f/
$ guile script input
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;;       or pass the --no-auto-compile argument to disable.
;;; compiling /tmp/script
;;; compiled /home/arne/.cache/guile/ccache/2.2-LE-8-3.9/tmp/script.go
#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#tBacktrace:
9 (apply-smob/1 #<catch-closure 715020>)
In ice-9/boot-9.scm:
713:2  8 (call-with-prompt _ _ #<procedure default-prompt-handle…>)
In ice-9/eval.scm:
608:8  7 (_ #(#(#<directory (guile-user) 7c96c0>)))
In ice-9/boot-9.scm:
2346:4  6 (save-module-excursion _)
3850:12  5 (_)
In /tmp/script:
831:17  4 (_)
816:20  3 (wisp2lisp _)
389:24  2 (linestoindented _)
364:57  1 (splitindent #<input: string 8b0150>)
In unknown file:
0 (string #<eof>)

ERROR: In procedure string:
ERROR: In procedure string: Wrong type (expecting character): #<eof>


while Guile 2.0 works:

$ guile-2.0 script input
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;;       or pass the --no-auto-compile argument to disable.
;;; compiling /tmp/script
;;; compiled /home/arne/.cache/guile/ccache/2.0-LE-8-2.0/tmp/script.go
#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f#f;
 Test linebreaks in strings and brackets

"flubbub

flabbab"

(hrug (nadda
       madda gadda "shoktom
 mee"  " sep  
ka"
 hadda)
      (gom))

(flu)

(sum [foo
      bar] barz {1 + [* 2 2]})

(mara {
       li
       +
       lo - (mabba)
       })

Best wishes,
Arne