#lang scheme/base (require "base.ss") (require (unlib-in pipeline)) ; Procedures ------------------------------------- ; continue any ... -> ans (define (eliminate-request-stage continue . args) (cond [(null? args) (continue)] [(request? (car args)) (apply continue (cdr args))] [else (apply continue args)])) ; Provide statements ----------------------------- (provide/contract [eliminate-request-stage procedure?])