ANSIdecl-ify various primitive procedure utilities in prims.h.
/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/debug.c,v 9.37 1990/08/16 08:42:15 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/debug.c,v 9.38 1991/08/26 15:00:09 arthur Exp $
Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
return;
case 'h':
case 'H':
- termination_normal ();
+ termination_normal (0);
case '?':
default:
show_flags (1);
/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/extern.h,v 9.40 1991/03/01 00:54:24 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/extern.h,v 9.41 1991/08/26 15:00:11 arthur Exp $
Copyright (c) 1987-91 Massachusetts Institute of Technology
/* Interpreter utilities */
extern void EXFUN (Microcode_Termination, (int code));
-extern void EXFUN (termination_normal, (void));
+extern void EXFUN (termination_normal, (int));
extern void EXFUN (termination_init_error, (void));
extern void EXFUN (termination_end_of_computation, (void));
extern void EXFUN (termination_trap, (void));
/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/osscheme.h,v 1.3 1991/03/01 00:55:17 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/osscheme.h,v 1.4 1991/08/26 15:00:14 arthur Exp $
Copyright (c) 1990-91 Massachusetts Institute of Technology
extern void EXFUN (error_floating_point_exception, (void));
extern void EXFUN (termination_eof, (void));
-extern void EXFUN (termination_normal, (void));
+extern void EXFUN (termination_normal, (int));
extern void EXFUN (termination_init_error, (void));
extern void EXFUN (termination_signal, (CONST char * signal_name));
extern void EXFUN (termination_trap, (void));
/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prims.h,v 9.38 1991/03/01 00:55:21 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prims.h,v 9.39 1991/08/26 15:00:15 arthur Exp $
Copyright (c) 1987-91 Massachusetts Institute of Technology
\f
extern void EXFUN (signal_error_from_primitive, (long error_code));
extern void EXFUN (signal_interrupt_from_primitive, (void));
-extern void error_wrong_type_arg ();
-extern void error_bad_range_arg ();
-extern void error_external_return ();
-extern long arg_integer ();
-extern long arg_nonnegative_integer ();
-extern long arg_index_integer ();
-extern long arg_integer_in_range ();
-extern double arg_real_number ();
-extern double arg_real_in_range ();
-extern long arg_ascii_char ();
-extern long arg_ascii_integer ();
+extern void EXFUN (error_wrong_type_arg, (int));
+extern void EXFUN (error_bad_range_arg, (int));
+extern void EXFUN (error_external_return, (void));
+extern long EXFUN (arg_integer, (int));
+extern long EXFUN (arg_nonnegative_integer, (int));
+extern long EXFUN (arg_index_integer, (int, long));
+extern long EXFUN (arg_integer_in_range, (int, long, long));
+extern double EXFUN (arg_real_number, (int));
+extern double EXFUN (arg_real_in_range, (int, double, double));
+extern long EXFUN (arg_ascii_char, (int));
+extern long EXFUN (arg_ascii_integer, (int));
#define UNSIGNED_FIXNUM_ARG(arg) \
((FIXNUM_P (ARG_REF (arg))) \
/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/sysprim.c,v 9.35 1990/11/05 11:55:19 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/sysprim.c,v 9.36 1991/08/26 15:00:18 arthur Exp $
-Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1987, 1988, 1989, 1990, 1991 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
"Exit Scheme with no option to restart.")
{
PRIMITIVE_HEADER (0);
- termination_normal ();
+ termination_normal (0);
+}
+
+DEFINE_PRIMITIVE ("EXIT-WITH-VALUE",
+ Prim_non_restartable_exit_with_value, 1, 1,
+ "Exit Scheme with no option to restart, returning integer argument\n\
+as exit status.")
+{
+ PRIMITIVE_HEADER (1);
+ termination_normal ((int) arg_integer (1));
}
DEFINE_PRIMITIVE ("HALT", Prim_restartable_exit, 0, 0,
/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/term.c,v 1.4 1990/11/13 08:44:58 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/term.c,v 1.5 1991/08/26 15:00:20 arthur Exp $
Copyright (c) 1990 Massachusetts Institute of Technology
}
\f
void
-DEFUN_VOID (termination_normal)
+DEFUN (termination_normal, (value), CONST int value)
{
termination_prefix (TERM_HALT);
- termination_suffix (TERM_HALT, 0, 0);
+ termination_suffix (TERM_HALT, value, 0);
}
void
/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxsig.c,v 1.14 1991/08/24 02:10:15 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxsig.c,v 1.15 1991/08/26 15:00:22 arthur Exp $
Copyright (c) 1990-91 Massachusetts Institute of Technology
case 'Q':
case 'q':
INTERACTIVE_NEWLINE ();
- termination_normal ();
+ termination_normal (0);
return;
case '\f':
if (!option_emacs_subprocess)
/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.94 1991/08/13 06:45:17 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.95 1991/08/26 15:00:24 arthur Exp $
Copyright (c) 1988-91 Massachusetts Institute of Technology
#define VERSION 11
#endif
#ifndef SUBVERSION
-#define SUBVERSION 94
+#define SUBVERSION 95
#endif
/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.94 1991/08/13 06:45:17 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.95 1991/08/26 15:00:24 arthur Exp $
Copyright (c) 1988-91 Massachusetts Institute of Technology
#define VERSION 11
#endif
#ifndef SUBVERSION
-#define SUBVERSION 94
+#define SUBVERSION 95
#endif