From 4574896f68f7b5097d61d8798938da98ba8250f3 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sun, 17 Jul 2016 13:12:51 +0200 Subject: [PATCH] test.mes: disable call-with-values test, prints too much debugging. --- test.mes | 33 +++++++++++++++++---------------- 1 file changed, 17 insertions(+), 16 deletions(-) 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?))