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 invalid use of 'PTR2SCM'.

Browse source 
Fixes a typo introduced in 04359b42b9.

* libguile/load.c (try_load_thunk_from_file): Use 'SCM2PTR', not
'PTR2SCM'.
This commit is contained in:
Ludovic Courtès 2016-07-11 11:04:34 +02:00
parent 2c5ab455c2
commit a14e873cce
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/load.c
View file

@ -1,5 +1,5 @@
/* Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2004, 2006, 2008, /* Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2004, 2006, 2008,
* 2009, 2010, 2011, 2012, 2013, 2014 Free Software Foundation, Inc. * 2009, 2010, 2011, 2012, 2013, 2014, 2016 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
@ -618,9 +618,9 @@ try_load_thunk_from_file (SCM filename)
{ {
return scm_c_catch (SCM_BOOL_T, return scm_c_catch (SCM_BOOL_T,
do_load_thunk_from_file, do_load_thunk_from_file,
PTR2SCM (filename), SCM2PTR (filename),
load_thunk_from_file_catch_handler, load_thunk_from_file_catch_handler,
PTR2SCM (filename), SCM2PTR (filename),
NULL, NULL); NULL, NULL);
} }