From 488bb5373fce9e14998ad9d3f1a35c6e7a51864d Mon Sep 17 00:00:00 2001 From: Jeronimo Pellegrini Date: Tue, 1 Aug 2023 09:29:39 -0300 Subject: [PATCH] Cosmetic changes only Mostly typos and comment alignment changes. --- src/stklos.h | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/src/stklos.h b/src/stklos.h index cd3660006..8573ba751 100644 --- a/src/stklos.h +++ b/src/stklos.h @@ -129,7 +129,7 @@ extern "C" * the file is not included in the source file in order to simplify * header file management (i.e. only this header file is necessary to use * the stklos library)). - * Don't use the functions GC_* they can be changed. The only allocation + * Don't use the functions GC_*, as they can be changed. The only allocation * functions that must be used are functions of the form STk_* */ @@ -195,8 +195,8 @@ typedef enum { /* - * Internal representation of SCM object. Object use the two least - * significant bit as tag. We have the following representation + * Internal representation of SCM objects. Objects use the two least + * significant bits as tag. We have the following representation * * .........00 pointer on an object descriptor (a box) * .........01 integer @@ -528,7 +528,7 @@ void STk_export_all_symbols(SCM module); ------------------------------------------------------------------------------ */ /* The `extended_type_descr' structure is used for the types which need - * more information (such as modules, ports, ....). All the extended + * more information (such as modules, ports, ...). All the extended * descriptors are stored in the STk_xtypes array. */ struct extended_type_descr { @@ -762,7 +762,7 @@ extern double STk_NaN; /* IEEE NaN special value */ /**** **** Bignum ****/ -struct bignum_obj; /* complete deflaration is in number.c */ +struct bignum_obj; /* complete declaration is in number.c */ #define BIGNUMP(p) (BOXED_TYPE_EQ((p), tc_bignum)) @@ -1155,7 +1155,7 @@ SCM STk_read(SCM port, int case_significant); SCM STk_read_constant(SCM port, int case_significant); char *STk_quote2str(SCM symb); int STk_init_reader(void); -int STk_keyword_colon_convention(void); // pos. of ':' in symbolro make a keyword +int STk_keyword_colon_convention(void); // pos. of ':' in symbol to make a keyword extern int STk_read_case_sensitive; @@ -1325,14 +1325,14 @@ extern int STk_use_utf8; ((0 <= (c) && (c) <= 0xd7ff) || (0xE000 <=(c) && (c) <= 0x10FFFF)) -char *STk_utf8_grab_char(char *str, uint32_t *c);/* result = pos. after current one */ +char *STk_utf8_grab_char(char *str, uint32_t *c); /* result = pos. after current one */ int STk_char2utf8(int ch, char *str); /* result = length of the UTF-8 repr. */ int STk_utf8_strlen(const char *s, int max); int STk_utf8_read_char(SCM port); int STk_utf8_sequence_length(const char *str); /* # of bytes of sequence starting at str */ -int STk_utf8_char_bytes_needed(unsigned int ch);/* # of bytes needed to represent ch*/ +int STk_utf8_char_bytes_needed(unsigned int ch); /* # of bytes needed to represent ch*/ int STk_utf8_verify_sequence(char *s, int len); /* s constitutes a valid UTF8? */ -char *STk_utf8_index(char *s, int i, int max);/* return the address of ith char of s*/ +char *STk_utf8_index(char *s, int i, int max); /* return the address of ith char of s*/ int STk_utf8_char_from_byte(char *s, int i, int max); /* byte index => char index */ int STk_init_utf8(void);