mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-26 08:41:47 -07:00
Code Issues Projects Releases Wiki Activity

Give correct reference for open-input-file (it's in the standard library, not the language).

Browse source 
Remove string-set! (was removed in R6RS).

Copied from Perforce
 Change: 180019
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Gareth Rees 2012-10-22 23:09:37 +01:00
parent 8744faff12
commit bbfd48355f
2 changed files with 2 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

24
mps/example/scheme/scheme.c
View file

@ -2164,7 +2164,7 @@ static obj_t entry_environment(obj_t env, obj_t op_env, obj_t operator, obj_t op
/* (open-input-file filename)
* Opens filename for input, with empty file options, and returns the
* obtained port.
* R6RS 8.3.
* R6RS Standard Library 8.3.
*/
static obj_t entry_open_input_file(obj_t env, obj_t op_env, obj_t operator, obj_t operands)
{
@ -2508,27 +2508,6 @@ static obj_t entry_string_ref(obj_t env, obj_t op_env, obj_t operator, obj_t ope
}
/* (string-set! string k char)
* k must be a valid index of string . `String-set!' stores char in
* element k of string and returns an unspecified value.
* R5RS 6.3.5
*/
static obj_t entry_string_set(obj_t env, obj_t op_env, obj_t operator, obj_t operands)
{
obj_t arg, k, c;
eval_args(operator->operator.name, env, op_env, operands, 3, &arg, &k, &c);
unless(TYPE(arg) == TYPE_STRING)
error("%s: first argument must be a string", operator->operator.name);
unless(TYPE(k) == TYPE_INTEGER)
error("%s: second argument must be an integer", operator->operator.name);
unless(TYPE(c) == TYPE_CHARACTER)
error("%s: third argument must be a character", operator->operator.name);
unless(0 <= k->integer.integer && k->integer.integer < arg->string.length)
error("%s: second argument is out of range", operator->operator.name);
arg->string.string[k->integer.integer] = c->character.c;
return obj_undefined;
}
/* (substring string start end)
* String must be a string, and start and end must be exact integers
* satisfying
@ -2780,7 +2759,6 @@ static struct {char *name; entry_t entry;} funtab[] = {
{"string", entry_string},
{"string-length", entry_string_length},
{"string-ref", entry_string_ref},
{"string-set!", entry_string_set},
{"substring", entry_substring},
{"string-append", entry_string_append},
{"string->list", entry_string_to_list},

2
mps/manual/source/topic/finalization.rst
View file

@ -99,7 +99,7 @@ a port::
/* (open-input-file filename)
* Opens filename for input, with empty file options, and returns the
* obtained port.
* R6RS 8.3.
* R6RS Standard Library 8.3.
*/
static obj_t entry_open_input_file(obj_t env, obj_t op_env, obj_t operator, obj_t operands)
{