diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2006-03-24 22:54:41 +0000 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2006-03-24 22:54:41 +0000 |
| commit | c7abe91f8b134cbd73658e10993d1dffb44d942d (patch) | |
| tree | 98d45116802a5f50bc3e4640fcd0b32499f95c9e /mixguile/mixguile-vm-stat.scm | |
| parent | 3010d483748f058024c623fdfea689429e87bf5c (diff) | |
| download | mdk-c7abe91f8b134cbd73658e10993d1dffb44d942d.tar.gz mdk-c7abe91f8b134cbd73658e10993d1dffb44d942d.tar.bz2 | |
CVS $Id$ tags removed.
git-archimport-id: mdk@sv.gnu.org/mdk--devel--1--patch-7
Diffstat (limited to 'mixguile/mixguile-vm-stat.scm')
| -rw-r--r-- | mixguile/mixguile-vm-stat.scm | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/mixguile/mixguile-vm-stat.scm b/mixguile/mixguile-vm-stat.scm index 1887b4c..60f25a5 100644 --- a/mixguile/mixguile-vm-stat.scm +++ b/mixguile/mixguile-vm-stat.scm @@ -1,24 +1,22 @@ ;; -*-scheme-*- -------------- mixguile-vm-stat.scm : ; mixvm status functions ; ------------------------------------------------------------------ -; $Id: mixguile-vm-stat.scm,v 1.4 2005/09/20 19:43:14 jao Exp $ -; ------------------------------------------------------------------ -; Copyright (C) 2001 Free Software Foundation, Inc. -; +; Copyright (C) 2001, 2006 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 published by ; the Free Software Foundation; either version 2 of the License, or ; (at your option) any later version. -; +; ; This program is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; GNU General Public License for more details. -; +; ; You should have received a copy of the GNU General Public License ; along with this program; if not, write to the Free Software ; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. -; +; ;; ;; possible status index @@ -57,7 +55,7 @@ (lambda (hook) (mix-add-post-hook 'run hook) (mix-add-post-hook 'next hook))) - + (define mix-add-break-hook (lambda (hook) @@ -68,4 +66,4 @@ (mix-add-run-next-hook (mix-make-conditional-hook mix-vm-cond-break? hook)))) - + |