mes: m2: Move force-output to Scheme.
* mes/module/mes/guile.mes (force-output): New function. * src/posix.c (force_output): Remove. * src/mes.c (mes_builtins): Remove adding of force-output.
This commit is contained in:
parent
39693eca63
commit
29950ae645
|
@ -31,6 +31,9 @@
|
|||
(mes-use-module (srfi srfi-16))
|
||||
(mes-use-module (mes display))
|
||||
|
||||
(define (force-output . port)
|
||||
*unspecified*)
|
||||
|
||||
(define (drain-input port) (read-string))
|
||||
|
||||
(define (read-line . rest)
|
||||
|
|
|
@ -2128,7 +2128,6 @@ mes_builtins (SCM a) ///((internal))
|
|||
a = init_builtin (builtin_type, "open-output-file", -1, (function1_t)&open_output_file, a);
|
||||
a = init_builtin (builtin_type, "set-current-output-port", 1, (function1_t)&set_current_output_port, a);
|
||||
a = init_builtin (builtin_type, "set-current-error-port", 1, (function1_t)&set_current_error_port, a);
|
||||
a = init_builtin (builtin_type, "force-output", -1, (function1_t)&force_output, a);
|
||||
a = init_builtin (builtin_type, "chmod", 2, (function1_t)&chmod_, a);
|
||||
a = init_builtin (builtin_type, "isatty?", 1, (function1_t)&isatty_p, a);
|
||||
a = init_builtin (builtin_type, "primitive-fork", 0, (function1_t)&primitive_fork, a);
|
||||
|
|
|
@ -245,12 +245,6 @@ set_current_error_port (SCM port)
|
|||
return current_error_port ();
|
||||
}
|
||||
|
||||
SCM
|
||||
force_output (SCM p) ///((arity . n))
|
||||
{
|
||||
return cell_unspecified;
|
||||
}
|
||||
|
||||
SCM
|
||||
chmod_ (SCM file_name, SCM mode) ///((name . "chmod"))
|
||||
{
|
||||
|
|
Loading…
Reference in New Issue