Enormous benchmark speedup

["Juhani Viheräkoski" <moonshine@kapsi.fi>]

[-- Attachment #1: Type: TEXT/PLAIN, Size: 987 bytes --]

Hi,

With recent changes in guile vm there are lots on improvements on 
the Gambit benchmarks. In the worst case some test run 10% slower but there
are huge wins in testcases involving vectors offsetting this. Here are 
*some* of the highlights:

triangl:
-15.57user 0.04system 0:15.72elapsed 99%CPU
+6.69user 0.02system 0:06.73elapsed 99%CPU

fft:
-59.16user 0.14system 0:59.89elapsed 99%CPU
+36.50user 0.07system 0:36.68elapsed 99%CPU

nucleic:
-38.99user 0.31system 0:39.30elapsed 99%CPU 
+24.54user 0.27system 0:24.85elapsed 99%CPU

pnpoly:
-85.52user 0.11system 1:25.69elapsed 99%CPU
+38.64user 0.05system 0:38.82elapsed 99%CPU

array1:
-65.91user 0.31system 1:06.51elapsed 99%CPU
+13.66user 0.25system 0:13.95elapsed 99%CPU

However the following testcase does not run when compiled, all the others 
work fine atm (source code attached):

ack:
guile: uncaught throw to vm-error: (vm-run "VM: Stack overflow" ())

Best Regards,
Juhani Viheräkosi

[-- Attachment #2: Type: TEXT/PLAIN, Size: 142 bytes --]

(define (ack m n)
  (cond ((= m 0) (+ n 1))
        ((= n 0) (ack (- m 1) 1))
        (else (ack (- m 1) (ack m (- n 1))))))

(ack 3 9)