summaryrefslogtreecommitdiff
path: root/ice-9/debugger/command-loop.scm
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2003-03-11 19:58:14 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2003-03-11 19:58:14 +0000
commitc614a00b8c155b59c76c0fe1e272aa2df1f3faf5 (patch)
tree6829096753b6bf4d5f9fdac06988159061e749bc /ice-9/debugger/command-loop.scm
parentb0dff01890f4b07a53c138fe04512af3b5262168 (diff)
downloadguile-c614a00b8c155b59c76c0fe1e272aa2df1f3faf5.tar.gz
* srfi-1.scm (filter, filter!): Removed. (Now implemented in the core.)
* goops/util.scm (filter): Removed. (Now supplied by core.) * list.c, list.h (scm_filter, scm_filter_x): New functions. * debugger/command-loop.scm: Prefix all commands imported from (ice-9 debugger command-loop) with debugger:. * boot-9.scm (resolve-interface): Process #:hide; Name custom interfaces appropriately. (module-use!, module-use-interfaces!): Remove existing interfaces on the use-list based on module name rather than interface identity so that custom interfaces truly replaces their previous version.
Diffstat (limited to 'ice-9/debugger/command-loop.scm')
-rw-r--r--ice-9/debugger/command-loop.scm30
1 files changed, 15 insertions, 15 deletions
diff --git a/ice-9/debugger/command-loop.scm b/ice-9/debugger/command-loop.scm
index 763c56b90..4473a0a14 100644
--- a/ice-9/debugger/command-loop.scm
+++ b/ice-9/debugger/command-loop.scm
@@ -1,6 +1,6 @@
;;;; Guile Debugger command loop
-;;; Copyright (C) 1999, 2001, 2002 Free Software Foundation, Inc.
+;;; Copyright (C) 1999, 2001, 2002, 2003 Free Software Foundation, Inc.
;;;
;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU General Public License as
@@ -42,7 +42,7 @@
;;; If you do not wish that, delete this exception notice.
(define-module (ice-9 debugger command-loop)
- #:use-module (ice-9 debugger commands)
+ #:use-module ((ice-9 debugger commands) :prefix debugger:)
#:export (debugger-command-loop
debugger-command-loop-error
debugger-command-loop-quit)
@@ -538,21 +538,21 @@
(error "Unknown value from lookup-command:" value)))))
state))
-(define-command "frame" '('optional exact-nonnegative-integer) frame)
+(define-command "frame" '('optional exact-nonnegative-integer) debugger:frame)
-(define-command "position" '() position)
+(define-command "position" '() debugger:position)
-(define-command "up" '('optional exact-integer) up)
+(define-command "up" '('optional exact-integer) debugger:up)
-(define-command "down" '('optional exact-integer) down)
+(define-command "down" '('optional exact-integer) debugger:down)
-(define-command "backtrace" '('optional exact-integer) backtrace)
+(define-command "backtrace" '('optional exact-integer) debugger:backtrace)
-(define-command "evaluate" '(object) evaluate)
+(define-command "evaluate" '(object) debugger:evaluate)
-(define-command '("info" "args") '() info-args)
+(define-command '("info" "args") '() debugger:info-args)
-(define-command '("info" "frame") '() info-frame)
+(define-command '("info" "frame") '() debugger:info-frame)
(define-command "quit" '()
(lambda (state)
@@ -567,12 +567,12 @@
(define-command-alias '("info" "stack") "backtrace")
-(define-command "continue" '() continue)
+(define-command "continue" '() debugger:continue)
-(define-command "finish" '() finish)
+(define-command "finish" '() debugger:finish)
-(define-command "trace-finish" '() trace-finish)
+(define-command "trace-finish" '() debugger:trace-finish)
-(define-command "step" '('optional exact-integer) step)
+(define-command "step" '('optional exact-integer) debugger:step)
-(define-command "next" '('optional exact-integer) next)
+(define-command "next" '('optional exact-integer) debugger:next)