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 | bb3dc323d263172bc379cff36bbaf858354f6f52 (patch) | |
tree | cb53e55768f319f809b9e147dd9ee50e30322ba6 | |
parent | c56fcb4f85eabd8a0d54c30ca9a459599d90a612 (diff) | |
download | mdk-bb3dc323d263172bc379cff36bbaf858354f6f52.tar.gz mdk-bb3dc323d263172bc379cff36bbaf858354f6f52.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) |