mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

Fix typo in `test-num2integral.c'.

Browse source 
* test-suite/standalone/test-num2integral.c (out_of_range_handler): Use
  `scm_is_eq' when comparing KEY.
This commit is contained in:
Ludovic Courtès 2012-01-08 16:08:45 +01:00
parent be96155b50
commit 20c360b298
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/standalone/test-num2integral.c
View file

@ -1,4 +1,5 @@
/* Copyright (C) 1999,2000,2001,2003,2004, 2006, 2008, 2010 Free Software Foundation, Inc. /* Copyright (C) 1999, 2000, 2001, 2003, 2004, 2006, 2008, 2010,
* 2012 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License * modify it under the terms of the GNU Lesser General Public License
@ -33,7 +34,7 @@ SCM call_num2ulong_long_body (void *data);
SCM SCM
out_of_range_handler (void *data, SCM key, SCM args) out_of_range_handler (void *data, SCM key, SCM args)
{ {
assert (scm_equal_p (key, scm_from_locale_symbol ("out-of-range"))); assert (scm_is_eq (key, scm_from_locale_symbol ("out-of-range")));
return SCM_BOOL_T; return SCM_BOOL_T;
} }