summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2001-09-14 00:08:17 +0000
committerJose Antonio Ortega Ruiz <jao@gnu.org>2001-09-14 00:08:17 +0000
commit3c5dbfa1292a025f3baead92703987edc044dc41 (patch)
treef725c6c46272ba8b4d82c449fc3a2a1539d55478
parent799cc8df9eb4ac00185f90016149b59ca60590e6 (diff)
downloadmdk-3c5dbfa1292a025f3baead92703987edc044dc41.tar.gz
mdk-3c5dbfa1292a025f3baead92703987edc044dc41.tar.bz2
(mix-pmem) no accepts two arguments (from, to)
-rw-r--r--mixguile/mixguile-commands.scm13
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)