diff options
author | V3n3RiX <venerix@koprulu.sector> | 2023-10-26 14:43:50 +0100 |
---|---|---|
committer | V3n3RiX <venerix@koprulu.sector> | 2023-10-26 14:43:50 +0100 |
commit | 7e8f2c69a019131eaeb989242d022260ea5a84ff (patch) | |
tree | ce769e693cf5ee40c03b9eb7ee9ea91e24645947 /dev-scheme/c-wrapper/files/c-wrapper-gauche-abi-0.98.patch | |
parent | 1e8bc3b2037289b8577740cea9321c37c52a49a2 (diff) |
gentoo auto-resync : 26:10:2023 - 14:43:50
Diffstat (limited to 'dev-scheme/c-wrapper/files/c-wrapper-gauche-abi-0.98.patch')
-rw-r--r-- | dev-scheme/c-wrapper/files/c-wrapper-gauche-abi-0.98.patch | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/dev-scheme/c-wrapper/files/c-wrapper-gauche-abi-0.98.patch b/dev-scheme/c-wrapper/files/c-wrapper-gauche-abi-0.98.patch index 15e8b6990cc7..6c9f0cb371b2 100644 --- a/dev-scheme/c-wrapper/files/c-wrapper-gauche-abi-0.98.patch +++ b/dev-scheme/c-wrapper/files/c-wrapper-gauche-abi-0.98.patch @@ -12,6 +12,30 @@ } else { Scm_Error("wrong slot number: %d", sa->slotNumber); } +--- a/src/c-lex.c ++++ b/src/c-lex.c +@@ -992,11 +992,6 @@ + SCM_RETURN(Scm_MakeInteger(v)); + } + +-ScmObj Scm_ReadStringLiteral() +-{ +- SCM_RETURN(read_string_literal()); +-} +- + ScmObj Scm_ReadCharacterConstant() + { + SCM_RETURN(read_character_constant()); +--- a/src/c-lex.h ++++ b/src/c-lex.h +@@ -78,7 +78,6 @@ + extern ScmObj Scm_IsForceIdentifierSet(ScmObj v); + extern ScmObj Scm_ReadIdentifier(ScmObj l); + extern ScmObj Scm_ReadOperator(ScmObj c); +-extern ScmObj Scm_ReadStringLiteral(); + extern ScmObj Scm_ReadCharacterConstant(); + extern ScmObj Scm_ReadOctalOrFlonum(ScmObj l); + extern ScmObj Scm_ReadDecimal(ScmObj l); --- a/src/c-lexlib.stub +++ b/src/c-lexlib.stub @@ -40,7 +40,11 @@ @@ -26,3 +50,13 @@ "}")) (define-cproc strtod (nptr::<const-cstring>) +@@ -136,9 +140,6 @@ + (define-cproc read-operator (c) + (call "Scm_ReadOperator")) + +-(define-cproc read-string-literal () +- (call "Scm_ReadStringLiteral")) +- + (define-cproc read-character-constant () + (call "Scm_ReadCharacterConstant")) + |