From e8ed460ec7d235c63eb7b912dd37732ca21df40f Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Sat, 22 Mar 2003 00:34:34 +0000 Subject: [PATCH] (call/cc): Added. --- ice-9/boot-9.scm | 1 + 1 file changed, 1 insertion(+) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index ae247b9c4..4cabb7557 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -136,6 +136,7 @@ (define (1+ n) (+ n 1)) (define (1- n) (+ n -1)) (define (and=> value procedure) (and value (procedure value))) +(define call/cc call-with-current-continuation) ;;; apply-to-args is functionally redundant with apply and, worse, ;;; is less general than apply since it only takes two arguments.