diff options
author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2001-09-25 21:41:11 +0000 |
---|---|---|
committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2001-09-25 21:41:11 +0000 |
commit | 9371ae1510040359cac0bbff3111357732a886fd (patch) | |
tree | c1060750f1e9b9387d04619bf364b892df5952bc /mixguile | |
parent | 86d1cf841a8f8f5aa5165bd1532b9d8909d0c34f (diff) | |
download | mdk-9371ae1510040359cac0bbff3111357732a886fd.tar.gz mdk-9371ae1510040359cac0bbff3111357732a886fd.tar.bz2 |
new scheme primitive (mix-last-result)
Diffstat (limited to 'mixguile')
-rw-r--r-- | mixguile/xmixguile_cmd_dispatcher.c | 9 |
1 files changed, 8 insertions, 1 deletions
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}, |