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

Use readline conditionally. (This requires more fixing in the debugger...)

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-09-11 14:55:02 +00:00
parent 77242ff9cd
commit daebab9eed
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ice-9/debugger.scm
View file

@ -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)))