diff --git a/test.mes b/test.mes index eb88bbad..7df3dd29 100644 --- a/test.mes +++ b/test.mes @@ -263,23 +263,24 @@ (display (+ 1 1 1 1)) (newline) -(cond ((defined? 'loop2) - (display "mes:values broken after loop2") - (newline)) - (#t - (values 0 1) - (display "(values 0 1): ") - (display (values 0 1)) - (newline) +;; works, but debugging is foo +;; (cond ((defined? 'loop2) +;; (display "mes:values broken after loop2") +;; (newline)) +;; (#t +;; (values 0 1) +;; (display "(values 0 1): ") +;; (display (values 0 1)) +;; (newline) - (display "call-with-values ==> 6: ") - (display - (call-with-values (lambda () (values 1 2 3)) - (lambda (a b c) (+ a b c)))) - (newline) - (display "call-with-values ==> 1: ") - (display ((lambda (x) x) (values 1 2 3))) - (newline))) +;; (display "call-with-values ==> 6: ") +;; (display +;; (call-with-values (lambda () (values 1 2 3)) +;; (lambda (a b c) (+ a b c)))) +;; (newline) +;; (display "call-with-values ==> 1: ") +;; (display ((lambda (x) x) (values 1 2 3))) +;; (newline))) (display "(procedure? builtin?: ") (display (procedure? builtin?))