summaryrefslogtreecommitdiffhomepage
path: root/mixguile
diff options
context:
space:
mode:
Diffstat (limited to 'mixguile')
-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)