mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +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

9
test-suite/tests/reader.test
View file

@ -1,7 +1,8 @@
;;;; reader.test --- Reader test. -*- coding: iso-8859-1; mode: scheme -*-
;;;;
;;;; Copyright (C) 1999, 2001, 2002, 2003, 2007, 2008, 2009, 2010, 2011,
;;;; 2013, 2014 Free Software Foundation, Inc.
;;;; Copyright (C) 1999, 2001-2003, 2007-2011, 2013-2015
;;;; Free Software Foundation, Inc.
;;;;
;;;; Jim Blandy <jimb@red-bean.com>
;;;;
;;;; This library is free software; you can redistribute it and/or
@ -77,6 +78,10 @@
"a|b"
(read-string "\"a\\|b\""))
(pass-if-equal "'(' in string literals"
"a(b"
(read-string "\"a\\(b\""))
(pass-if-equal "#\\escape"
'(a #\esc b)
(read-string "(a #\\escape b)"))