; SPDX-FileCopyrightText: Chris Pressey, the original author of this work, has dedicated it to the public domain.
; For more information, please refer to <https://unlicense.org/>
; SPDX-License-Identifier: Unlicense

(define get/cc (lambda ()
  (call/cc
    (lambda (continuation)
      continuation))))

(define get/cc (lambda ()
  (call-with-current-continuation
    (lambda (continuation)
      continuation))))

(define test (lambda ()
  (let ((a (get/cc))
        (b 1))
    (display "hi") (newline)
    a)))

((test) (lambda (x) (display "lo")))

(define test2 (lambda ()
  (let ((a (get/cc)))
    (a (get/cc)))))

(define test3 (lambda ()
  (let ((a (get/cc))
        (b (lambda (x) (display "x is") (display x) (newline))))
    (display "a is") (display a) (newline)
    (display "b is") (display b) (newline)
    (a b))))

(define test4 (lambda ()
  (let ((a (get/cc)))
    (display "a is") (display a) (newline)
    (let ((b (lambda (x) (display "x is") (display x) (newline))))
      (display "b is") (display b) (newline)
      (a 7)))))