summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2001-09-15 02:12:58 +0000
committerJose Antonio Ortega Ruiz <jao@gnu.org>2001-09-15 02:12:58 +0000
commita8feb59189bc1824500c6f76d0d058e84739fcdd (patch)
tree1d19d1e3ed1b784d1f727739a1661db0a3c83021
parent588334b043cc4070c46245c3b2a0088aa2f5eda1 (diff)
downloadmdk-a8feb59189bc1824500c6f76d0d058e84739fcdd.tar.gz
mdk-a8feb59189bc1824500c6f76d0d058e84739fcdd.tar.bz2
all commands implemented in terms of mixvm-cmd to allow hook calling
-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