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

(scm_input_error): Pass arg list parameter to scm_error_scm,

Browse source 
rather than SCM_EOL.  Needed by "Unknown # object" case in scm_lreadr.
This commit is contained in:
Kevin Ryde 2003-06-04 16:36:03 +00:00
parent f0d1cf6f29
commit dd72382c32
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/read.c
View file

@ -1,4 +1,5 @@
/* Copyright (C) 1995,1996,1997,1999,2000,2001 Free Software Foundation, Inc.
/* Copyright (C) 1995,1996,1997,1999,2000,2001,2003 Free Software
* Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
@ -90,7 +91,7 @@ scm_input_error(char const * function,
scm_error_scm (scm_str2symbol ("read-error"),
scm_makfrom0str (function),
string,
SCM_EOL,
arg,
SCM_BOOL_F);
}