bldc/tests/test_callcc_3.lisp


(define f (lambda (x)
            (if (= x 0)
                x
                ( = 10 
                (call-cc (lambda (k) (progn (define cc k) (f (- x 1)))))))))

(f 1)
(cc 10)
Squashed 'lispBM/lispBM/' changes from 6deae379..ccca9778 ccca9778 update lbmred.md e182bffd changed doc i28 to i 3b277e28 error message printing verbosity level can be toggled between high and low 0f00e692 update one of the call-cc tests 6a377f74 added some tests of call-cc 4f3e8adc update application of a call-cc continuation. zero arguments is ok, will apply to nil. More than 1 argument is an error and terminates the context 50fdd498 small tweaks to repl-cps git-subtree-dir: lispBM/lispBM git-subtree-split: ccca9778ee0ddad6ea44bdc309ba128c92723309 2022-04-03 03:26:23 -07:00
			`(define f (lambda (x)`
			`(if (= x 0)`
			`x`
			`( = 10`
			`(call-cc (lambda (k) (progn (define cc k) (f (- x 1)))))))))`

			`(f 1)`
			`(cc 10)`
Squashed 'lispBM/lispBM/' changes from 9011df7f..7392b499 7392b499 tweak to eval-program to remove unintuitive behaviour 3683b038 tweak lbmref 79e26fd3 small tweak lbmref b62983d2 some additions and typo-fixes in lbmref 566fb8ce added more text about cond to lbmref git-subtree-dir: lispBM/lispBM git-subtree-split: 7392b4994dfadcc97ebb9e2ca8da552204495c9d 2022-11-02 10:49:31 -07:00