artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mes: m2: Move force-output to Scheme.

Browse source 
* mes/module/mes/posix.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:
Jan Nieuwenhuizen 2019-05-05 13:11:33 +02:00
parent 53c060f837
commit 829cc9cca5
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
3 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
mes/module/mes/posix.mes
View file

@ -34,6 +34,9 @@
(string-suffix? ext base)) (string-drop-right base (string-length ext))
base)))
(define (force-output . port)
*unspecified*)
(define (search-path path file-name)
(if (access? file-name R_OK) file-name
(let loop ((path path))

1
src/mes.c
View file

@ -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);

6
src/posix.c
View file

@ -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"))
{