From 53d9d468a4c8eded6269dc35d0a2f40fc62f7184 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Tue, 25 Sep 2001 21:41:11 +0000
Subject: new scheme primitive (mix-last-result)

---
 mixguile/xmixguile_cmd_dispatcher.c | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/mixguile/xmixguile_cmd_dispatcher.c b/mixguile/xmixguile_cmd_dispatcher.c
index 83603aa..4781851 100644
--- a/mixguile/xmixguile_cmd_dispatcher.c
+++ b/mixguile/xmixguile_cmd_dispatcher.c
@@ -1,7 +1,7 @@
 /* -*-c-*- -------------- xmixguile_cmd_dispatcher.c :
  * Implementation of the functions declared in xmixguile_cmd_dispatcher.h
  * ------------------------------------------------------------------
- *  $Id: xmixguile_cmd_dispatcher.c,v 1.7 2001/09/16 22:47:10 jao Exp $
+ *  $Id: xmixguile_cmd_dispatcher.c,v 1.8 2001/09/25 21:41:11 jao Exp $
  * ------------------------------------------------------------------
  * Copyright (C) 2001 Free Software Foundation, Inc.
  *  
@@ -88,6 +88,12 @@ mixvm_status_ (void)
   return gh_long2scm (mix_vm_get_run_status (vm_));
 }
 
+static SCM
+mix_last_result_ (void)
+{
+  return gh_bool2scm (mix_vm_cmd_dispatcher_get_last_result (vm_dispatcher_));
+}
+
 static long
 word_to_long_ (mix_word_t word)
 {
@@ -519,6 +525,7 @@ mix_add_global_post_hook_ (SCM function)
 const scm_command_t DEFAULT_SCM_COMMANDS_[] = {
   {"mixvm-cmd", mixvm_cmd_, 2, 0, 0},
   {"mixvm-status", mixvm_status_, 0, 0, 0},
+  {"mix-last-result", mix_last_result_, 0, 0, 0},
   {"mix-reg", mix_reg_, 1, 0, 0},
   {"mix-set-reg!", mix_set_reg_, 2, 0, 0},
   {"mix-cell", mix_cell_, 1, 0, 0},
-- 
cgit v1.2.3