mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

Merge commit '5af307de43'

Browse source 
Conflicts:
	test-suite/tests/reader.test
This commit is contained in:
Andy Wingo 2015-01-22 12:50:18 +01:00
commit 678995ff79
3 changed files with 18 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/read.c
View file

@ -1,5 +1,5 @@
/* Copyright (C) 1995, 1996, 1997, 1999, 2000, 2001, 2003, 2004, 2006,
* 2007, 2008, 2009, 2010, 2011, 2012, 2014 Free Software Foundation, Inc.
/* Copyright (C) 1995-1997, 1999-2001, 2003, 2004, 2006-2012, 2014
* 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 License
@ -640,6 +640,9 @@ scm_read_string_like_syntax (int chr, SCM port, scm_t_read_opts *opts)
goto str_eof;
case '|':
case '\\':
case '(': /* Accept "\(" for use at the beginning of lines
in multiline strings to avoid confusing emacs
lisp modes. */
break;
case '\n':
if (opts->hungry_eol_escapes_p)