From 3c5dbfa1292a025f3baead92703987edc044dc41 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Fri, 14 Sep 2001 00:08:17 +0000
Subject: (mix-pmem) no accepts two arguments (from, to)

---
 mixguile/mixguile-commands.scm | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'mixguile')

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)
-- 
cgit v1.2.3