andrius
/
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.

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)) (display (+ 1 1 1 1))
(newline) (newline)
(cond ((defined? 'loop2) ;; works, but debugging is foo
(display "mes:values broken after loop2") ;; (cond ((defined? 'loop2)
(newline)) ;; (display "mes:values broken after loop2")
(#t ;; (newline))
(values 0 1) ;; (#t
(display "(values 0 1): ") ;; (values 0 1)
(display (values 0 1)) ;; (display "(values 0 1): ")
(newline) ;; (display (values 0 1))
;; (newline)
(display "call-with-values ==> 6: ") ;; (display "call-with-values ==> 6: ")
(display ;; (display
(call-with-values (lambda () (values 1 2 3)) ;; (call-with-values (lambda () (values 1 2 3))
(lambda (a b c) (+ a b c)))) ;; (lambda (a b c) (+ a b c))))
(newline) ;; (newline)
(display "call-with-values ==> 1: ") ;; (display "call-with-values ==> 1: ")
(display ((lambda (x) x) (values 1 2 3))) ;; (display ((lambda (x) x) (values 1 2 3)))
(newline))) ;; (newline)))
(display "(procedure? builtin?: ") (display "(procedure? builtin?: ")
(display (procedure? builtin?)) (display (procedure? builtin?))