1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00

(call/cc): Added.

This commit is contained in:
Marius Vollmer 2003-03-22 00:34:34 +00:00
parent e6682f8b26
commit e8ed460ec7

View file

@ -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.