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

(ice-9 safe-r5rs) fixes for bound aux syntax

Browse source 
* module/ice-9/safe-r5rs.scm: Define local versions of `case' and `cond'
  that assume aux syntax is unbound.  If this doesn't work, we can
  switch to exporting aux syntax.
* module/ice-9/top-repl.scm (top-repl): Don't add (ice-9 r5rs) to the
  REPL environment.
This commit is contained in:
Andy Wingo 2019-09-27 22:33:22 +02:00
parent 2e335635cc
commit 3e02bf7259
2 changed files with 209 additions and 124 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/ice-9/top-repl.scm
View file

@ -1,7 +1,6 @@
;;; -*- mode: scheme; coding: utf-8; -*-
;;;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
;;;; 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2013 Free Software Foundation, Inc.
;;;; Copyright (C) 1995-2011,2013,2019 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
@ -53,8 +52,7 @@
(set-current-module guile-user-module)
(process-use-modules
(append
'(((ice-9 r5rs))
((ice-9 session)))
'(((ice-9 session)))
(if (provided? 'regex)
'(((ice-9 regex)))
'())