1 files changed, 32 insertions, 15 deletions
diff --git a/mixguile/mixguile-commands.scm b/mixguile/mixguile-commands.scm
index 2615179..5d5c503 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
 ;  ------------------------------------------------------------------
-;   Last change: Time-stamp: "01/08/23 00:15:59 jao"
+;   Last change: Time-stamp: "01/09/01 01:01:02 jao"
 ;  ------------------------------------------------------------------
 ;  Copyright (C) 2001 Free Software Foundation, Inc.
 ;   
@@ -114,9 +114,11 @@
     (mixvm-cmd "compile" (argnsym->string file))))
 
 ; devdir
-(define mix-devdir
-  (lambda (. dir)
-    (mixvm-cmd "devdir" (argnsym->string dir))))
+(define mix-sddir
+  (lambda (dir)
+    (mixvm-cmd "sddir" dir)))
+
+(define mix-pddir (lambda () (mixvm-cmd "pddir" "")))
 
 ; edit
 (define mix-edit
@@ -126,7 +128,7 @@
 ; help
 (define mix-help
   (lambda (. cmd)
-    (mixvm-cmd "help" (argnsym->string help))))
+    (mixvm-cmd "help" (argnsym->string cmd))))
 
 ; pasm
 (define mix-pasm (lambda () (mixvm-cmd "pasm" "")))
@@ -149,6 +151,11 @@
   (lambda (line)
     (mixvm-cmd "sbp" (argnum->string line))))
 
+; sbp
+(define mix-pline
+  (lambda (. no)
+    (mixvm-cmd "pline" (argnnum->string no))))
+
 ; cbp
 (define mix-cbp
   (lambda (line)
@@ -203,18 +210,21 @@
     (mixvm-cmd "pbt" (argnnum->string num))))
 
 ; timing
-(define mix-timing
-  (lambda (. on)
-    (mixvm-cmd "timing" (cond ((null? on) "")
-			       (on "on")
-			       (else "off")))))
+(define mix-stime
+  (lambda (on)
+    (mixvm-cmd "stime" (if on "on" "off"))))
+
+(define mix-ptime (lambda () (mixvm-cmd "ptime" "")))
 
 ; timing
-(define mix-tracing
-  (lambda (. on)
-    (mixvm-cmd "tracing" (cond ((null? on) "")
-			       (on "on")
-			       (else "off")))))
+(define mix-strace
+  (lambda (on)
+    (mixvm-cmd "strace" (if on "on" "off"))))
+
+; logging
+(define mix-slog
+  (lambda (on)
+    (mixvm-cmd "slog" (if on "on" "off"))))
 
 ; w2d
 (define mix-w2d
@@ -225,3 +235,10 @@
 (define mix-weval
   (lambda (exp)
     (mixvm-cmd "weval" (argsym->string exp))))
+
+; pprog
+(define mix-pprog (lambda () (mixvm-cmd "pprog" "")))
+
+; sprog
+(define mix-psrc (lambda () (mixvm-cmd "psrc" "")))
+