scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

scratch directory

This commit is contained in:
erana 2012-01-23 14:17:53 +09:00
parent 75cd94cc2d
commit e158b49c4e
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
scsh/scratch/scratch.scm
View File

@ -1,4 +1,4 @@
;;; thttpdaemon.scm - a scheme web daemon ;;; scratch.scm - a scheme utility library
;;; ;;;
;;; Copyright (c) 2011-2012 Johan Ceuppens ;;; Copyright (c) 2011-2012 Johan Ceuppens
;;; ;;;
@ -26,20 +26,20 @@
;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF ;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
(define (get-response-f lst) (define (get-response-f lst)
(define (get return) (define (get return)
(for-each (for-each
(lambda (element) (lambda (element)
(set! return (call-with-current-continutation (set! return (call-with-current-continutation
(lambda (r) (lambda (r)
(set! get r) (set! get r)
(return element))))) (return element)))))
lst) lst)
(return 'end-generate)) (return 'end-generate))
(define (gen) (define (gen)
(call-with-current-continuation get)) (call-with-current-continuation get))
gen) gen)
(define (get-response l) (define (get-response l)
(get-response-f l)) (get-response-f l))