From 57ab6cbe0d81039e5c71c783b8a59b8b246a5a26 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Matthias=20K=C3=B6ppe?= Date: Fri, 13 Dec 2002 17:29:03 +0000 Subject: [PATCH] *** empty log message *** git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4201 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- SWIG/Examples/test-suite/guile/list_vector_runme.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SWIG/Examples/test-suite/guile/list_vector_runme.scm b/SWIG/Examples/test-suite/guile/list_vector_runme.scm index a007e1d11..c5ffa0784 100644 --- a/SWIG/Examples/test-suite/guile/list_vector_runme.scm +++ b/SWIG/Examples/test-suite/guile/list_vector_runme.scm @@ -17,8 +17,8 @@ (check (equal? (one-to-seven-list2) '(1 2 3 4 5 6 7))) (check (equal? (one-to-seven-vector2) #(1 2 3 4 5 6 7))) -(check (= (sum-lists '(1 2 3) '(4 5 6) '(7 8 9)) 45)) -(check (= (sum-lists2 '(1 2 3) '(4 5 6) '(7 8 9)) 45)) +(check (= (sum-lists '(1 2 3) '(4 5 6) '(7 8 9)) 45.0)) +(check (= (sum-lists2 '(1 2 3) '(4 5 6) '(7 8 9)) 45.0)) (check (equal? (call-with-values produce-lists list) '(#(0 1 2 3 4) #(0 1 4 9 16)