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 | 1da0768f6973118f0286bebe5508462bb6a176cf (patch) | |
tree | e7f80bedeb9fa85d5682d66358388707ef242a18 | |
parent | 7ddbf8f782dc1a9e652d929b1466979f40ece3a5 (diff) | |
download | mdk-1da0768f6973118f0286bebe5508462bb6a176cf.tar.gz mdk-1da0768f6973118f0286bebe5508462bb6a176cf.tar.bz2 |
all commands implemented in terms of mixvm-cmd to allow hook calling
-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 |