#| -*-Scheme-*-
-$Id: stackopt.scm,v 1.10 1995/07/08 03:31:36 adams Exp $
+$Id: stackopt.scm,v 1.11 1995/08/03 00:17:40 adams Exp $
Copyright (c) 1994-1995 Massachusetts Institute of Technology
assignments for the parameters and values are fixed by the calling
sequence.
+\f
THEOREM AND PROOF
THEOREM: The stack slot assignments provided for the saved values in
;; A better solution would be to separate the model tree from the
;; environment function of matching up the frame vectors for a
;; particular frame variable.
-
+\f
(define-stack-optimizer CALL (state rator cont #!rest rands)
(if (and (QUOTE/? rator)
(eq? (quote/text rator) %stack-closure-ref))
(else '())))) ; Wired but slot's not free
pairs))))
(stackopt/model/children model))))
- \f
+\f
(call-with-values
(lambda ()
(list-split (walk model