summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--mixguile/mixguile-commands.scm13
1 files changed, 8 insertions, 5 deletions
diff --git a/mixguile/mixguile-commands.scm b/mixguile/mixguile-commands.scm
index eae028e..fe61695 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
; ------------------------------------------------------------------
-; $Id: mixguile-commands.scm,v 1.3 2001/09/14 00:08:17 jao Exp $
+; $Id: mixguile-commands.scm,v 1.4 2001/09/15 02:12:58 jao Exp $
; ------------------------------------------------------------------
; Copyright (C) 2001 Free Software Foundation, Inc.
;
@@ -55,7 +55,9 @@
; sreg
(define mix-sreg
- (lambda (reg val) (mix-set-reg! reg val)))
+ (lambda (reg val) (mixvm-cmd "sreg" (string-append (argsym->string reg)
+ " "
+ (argnum->string val)))))
; pmem
(define mix-pmem
@@ -68,7 +70,9 @@
; smem
(define mix-smem
- (lambda (cell value) (mix-set-cell! cell value)))
+ (lambda (cell val) (mixvm-cmd "smem" (string-append (argnum->string cell)
+ " "
+ (argnum->string val)))))
; pall
(define mix-pall (lambda () (mixvm-cmd "pall" "")))
@@ -82,8 +86,7 @@
; sover
(define mix-sover
(lambda (val)
- (let ((bval (if val #t #f)))
- (mix-set-over! bval))))
+ (mixvm-cmd "sover" (if val "T" "F"))))
; psym
(define mix-psym