diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2001-09-15 02:12:58 +0000 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2001-09-15 02:12:58 +0000 |
| commit | a8feb59189bc1824500c6f76d0d058e84739fcdd (patch) | |
| tree | 1d19d1e3ed1b784d1f727739a1661db0a3c83021 /mixguile | |
| parent | 588334b043cc4070c46245c3b2a0088aa2f5eda1 (diff) | |
| download | mdk-a8feb59189bc1824500c6f76d0d058e84739fcdd.tar.gz mdk-a8feb59189bc1824500c6f76d0d058e84739fcdd.tar.bz2 | |
all commands implemented in terms of mixvm-cmd to allow hook calling
Diffstat (limited to 'mixguile')
| -rw-r--r-- | mixguile/mixguile-commands.scm | 13 |
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 |