bug#38486: compile livelock

[Matt Wette]

I reproduced the behavior on 2.2.7.   I also found that -O0 and -O1 do 
not have a problem:

$ meta/guild compile -O0 38486-1.scm -o 38486-1.go
wrote `38486-1.go'
$ meta/guild compile -O1 38486-1.scm -o 38486-1.go
wrote `38486-1.go'

$ meta/guild compile -O2 38486-1.scm -o 38486-1.go
^Cerror: interrupted by the user