artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

test.mes: disable call-with-values test, prints too much debugging.

Browse source
This commit is contained in:
Jan Nieuwenhuizen 2016-07-17 13:12:51 +02:00
parent 71a89be833
commit 4574896f68
1 changed files with 17 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
test.mes
View file

@ -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?))