register allocation fail

[Aki Helin]

piko:~$ owl < owl/bug.scm
You see a prompt.
> out
> bing
> 101
 → (3 3)
delivered
> bye bye _o/~
piko:~$ cat owl/bug.scm

(define (out a n) (list a n))

(define (bing a)
        (print 101)
        ((lambda (b)
                (if a
                        (out a b)
                        (out b a)))
                (fxbor 3 1)))

(show " → " (bing 'hello))