/[guile]/guile/guile-core/ice-9/debugger/command-loop.scm
ViewVC logotype

Diff of /guile/guile-core/ice-9/debugger/command-loop.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by ossau, Sat Oct 26 19:05:28 2002 UTC revision 1.2 by ossau, Mon Nov 4 18:58:15 2002 UTC
# Line 48  Line 48 
48              debugger-command-loop-quit)              debugger-command-loop-quit)
49    #:no-backtrace)    #:no-backtrace)
50    
 (if (memq 'readline *features*)  
     (define-module (ice-9 debugger command-loop)  
       :use-module (ice-9 readline)))  
   
51  ;;; {Interface used by (ice-9 debugger).}  ;;; {Interface used by (ice-9 debugger).}
52    
53  (define (debugger-command-loop state)  (define (debugger-command-loop state)
# Line 93  Line 89 
89      (lambda args      (lambda args
90        *unspecified*)))        *unspecified*)))
91    
92    (define set-readline-prompt! #f)
93    
94  (define (read-and-dispatch-command state port)  (define (read-and-dispatch-command state port)
95    (if (using-readline?)    (if (using-readline?)
96        (set-readline-prompt! debugger-prompt debugger-prompt)        (begin
97            ;; Import set-readline-prompt! if we haven't already.
98            (or set-readline-prompt!
99                (set! set-readline-prompt!
100                      (module-ref (resolve-module '(ice-9 readline))
101                                  'set-readline-prompt!)))
102            (set-readline-prompt! debugger-prompt debugger-prompt))
103        (display debugger-prompt))        (display debugger-prompt))
104    (force-output)                        ;This should not be necessary...    (force-output)                        ;This should not be necessary...
105    (let ((token (read-token port)))    (let ((token (read-token port)))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26