diff options
author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2001-09-14 00:08:17 +0000 |
---|---|---|
committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2001-09-14 00:08:17 +0000 |
commit | 3c5dbfa1292a025f3baead92703987edc044dc41 (patch) | |
tree | f725c6c46272ba8b4d82c449fc3a2a1539d55478 | |
parent | 799cc8df9eb4ac00185f90016149b59ca60590e6 (diff) | |
download | mdk-3c5dbfa1292a025f3baead92703987edc044dc41.tar.gz mdk-3c5dbfa1292a025f3baead92703987edc044dc41.tar.bz2 |
(mix-pmem) no accepts two arguments (from, to)
-rw-r--r-- | mixguile/mixguile-commands.scm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/mixguile/mixguile-commands.scm b/mixguile/mixguile-commands.scm index 5d5c503..eae028e 100644 --- a/mixguile/mixguile-commands.scm +++ b/mixguile/mixguile-commands.scm @@ -1,7 +1,7 @@ ;; -*-scheme-*- -------------- mixguile-commands.scm : ; mixvm commands implementation using the mixvm-cmd primitive ; ------------------------------------------------------------------ -; Last change: Time-stamp: "01/09/01 01:01:02 jao" +; $Id: mixguile-commands.scm,v 1.3 2001/09/14 00:08:17 jao Exp $ ; ------------------------------------------------------------------ ; Copyright (C) 2001 Free Software Foundation, Inc. ; @@ -59,8 +59,12 @@ ; pmem (define mix-pmem - (lambda (no) - (mixvm-cmd "pmem" (argnum->string no)))) + (lambda (from . to) + (cond ((null? to) (mixvm-cmd "pmem" (argnum->string from))) + (else (mixvm-cmd "pmem" + (string-append (argnum->string from) + "-" + (argnnum->string to))))))) ; smem (define mix-smem @@ -108,6 +112,9 @@ (lambda (file) (mixvm-cmd "load" (argsym->string file)))) +; pstat +(define mix-pstat (lambda () (mixvm-cmd "pstat" ""))) + ; compile (define mix-compile (lambda (. file) |