diff options
| -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 |