From a8feb59189bc1824500c6f76d0d058e84739fcdd Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sat, 15 Sep 2001 02:12:58 +0000
Subject: all commands implemented in terms of mixvm-cmd to allow hook calling

---
 mixguile/mixguile-commands.scm | 13 ++++++++-----
 1 file 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
-- 
cgit v1.2.3