#langscheme/base;; Support for forth-tx.ss
(require"../scat.ss""../coma.ss"
(lib"match.ss"))
(provide
(all-defined-out))
;; Return all vals as values next to updated state. Makes the 'locals'
;; macro in forth-tx.ss a bit simpler, since we know at compile time
;; how many values will be popped.
(define (state-pop-unquote/localsstatenvalstag)
(let-values
(((asmvals)
(state-pop-unquotestatenvalstag)))
(applyvaluesasmvals)))