From daebab9eed157ac0f2ee5ab987128efdf98b145d Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sat, 11 Sep 1999 14:55:02 +0000 Subject: [PATCH] Use readline conditionally. (This requires more fixing in the debugger...) --- ice-9/debugger.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/ice-9/debugger.scm b/ice-9/debugger.scm index dd9334024..370667f1f 100644 --- a/ice-9/debugger.scm +++ b/ice-9/debugger.scm @@ -17,8 +17,12 @@ ;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, ;;; Boston, MA 02111-1307 USA -(define-module (ice-9 debugger) - :use-module (ice-9 readline)) +(define-module (ice-9 debugger)) + +(if (memq 'readline *features*) + (define-module (ice-9 debugger) + :use-module (ice-9 readline))) + (define-public (debug) (let ((stack (fluid-ref the-last-stack)))