diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-03-11 19:58:14 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-03-11 19:58:14 +0000 |
commit | c614a00b8c155b59c76c0fe1e272aa2df1f3faf5 (patch) | |
tree | 6829096753b6bf4d5f9fdac06988159061e749bc /ice-9/debugger/command-loop.scm | |
parent | b0dff01890f4b07a53c138fe04512af3b5262168 (diff) | |
download | guile-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.scm | 30 |
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) |