diff options
| -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) |