* Fixed bug 160483: described as "incorrect number of arguments" reported as "not a function"

- The real reason was in the register allocator, where one live
    variable (the memmory size of the bytevector) was not marked live 
    across the call to do-overflow.  When the overflow returned, the 
    value of that variable (which was in the %ebx register) was
    trashed, leading to an incorrect bump in the allocation pointer.
  - Note to self, never blame anything on cache coherency again!

scheme/ikarus.compiler.altcogen.ss

@@ -420,11 +420,9 @@
          (make-primcall 'nop '())
          (make-funcall 
            (make-primcall 'mref
-              (list (make-constant 
+             (list
-                      (make-object
+               (make-constant (make-object (primref->symbol 'do-overflow)))
-                        (primref->symbol 
+               (make-constant (- disp-symbol-record-proc symbol-ptag))))
-                          'do-overflow)))
-                    (make-constant (- disp-symbol-record-proc symbol-ptag))))
            (list size)))))
   ;;; impose value
   (define (V d x)
@@ -531,7 +529,8 @@
        (lambda (x)
          (make-seq
            (make-set return-value-register x)
-           (make-primcall 'return (list return-value-register))))))
+           (make-primcall 'return 
+             (list pcr esp apr return-value-register))))))
   ;;; impose effect
   (define (E x)
     (struct-case x
@@ -1482,6 +1481,7 @@
             [(reg? d) 
              (cond
                [(not (mem-reg? d rs))
+                (set-asm-instr-op! x 'nop)
                 (values vs rs fs ns)]
                [else
                 (let ([rs (rem-reg d rs)])

scheme/ikarus.compiler.ss

@@ -1467,6 +1467,7 @@
                            (let f ([fml* (cdr fml*)] [rand* rand*])
                              (cond
                                [(null? fml*) 
+                                ;;; FIXME: construct list afterwards
                                 (list (make-funcall (make-primref 'list) rand*))]
                                [else
                                 (cons (car rand*)