From 11fb8803f6c9e997e628d8e21e62f9ceb40f6525 Mon Sep 17 00:00:00 2001 From: Lassi Kortela Date: Tue, 4 Oct 2022 22:09:09 +0300 Subject: [PATCH] Switch suffix from "_bang" to "_x" The "_x" convention comes from Guile's C API. --- target-camel/r7rs-small | 26 +++++++++++++------------- target-under/r7rs-small | 26 +++++++++++++------------- translate.scm | 2 +- 3 files changed, 27 insertions(+), 27 deletions(-) diff --git a/target-camel/r7rs-small b/target-camel/r7rs-small index de65a08..d076a81 100644 --- a/target-camel/r7rs-small +++ b/target-camel/r7rs-small @@ -27,10 +27,10 @@ boolean? BooleanP bytevector Bytevector bytevector-append BytevectorAppend bytevector-copy BytevectorCopy -bytevector-copy! BytevectorCopyBang +bytevector-copy! BytevectorCopyX bytevector-length BytevectorLength bytevector-u8-ref BytevectorU8Ref -bytevector-u8-set! BytevectorU8SetBang +bytevector-u8-set! BytevectorU8SetX bytevector? BytevectorP caaaar Caaaar caaadr Caaadr @@ -187,7 +187,7 @@ list->string ListToString list->vector ListToVector list-copy ListCopy list-ref ListRef -list-set! ListSetBang +list-set! ListSetX list-tail ListTail list? ListP load Load @@ -246,7 +246,7 @@ rational? RationalP rationalize Rationalize read Read read-bytevector ReadBytevector -read-bytevector! ReadBytevectorBang +read-bytevector! ReadBytevectorX read-char ReadChar read-error? ReadErrorP read-line ReadLine @@ -258,9 +258,9 @@ remainder Remainder reverse Reverse round Round scheme-report-environment SchemeReportEnvironment -set! SetBang -set-car! SetCarBang -set-cdr! SetCdrBang +set! SetX +set-car! SetCarX +set-cdr! SetCdrX sin Sin sqrt Sqrt square Square @@ -277,15 +277,15 @@ string-ci=? StringCiEqualP string-ci>=? StringCiGreaterEqualP string-ci>? StringCiGreaterP string-copy StringCopy -string-copy! StringCopyBang +string-copy! StringCopyX string-downcase StringDowncase -string-fill! StringFillBang +string-fill! StringFillX string-foldcase StringFoldcase string-for-each StringForEach string-length StringLength string-map StringMap string-ref StringRef -string-set! StringSetBang +string-set! StringSetX string-upcase StringUpcase string<=? StringLessEqualP stringlist VectorToList vector->string VectorToString vector-append VectorAppend vector-copy VectorCopy -vector-copy! VectorCopyBang -vector-fill! VectorFillBang +vector-copy! VectorCopyX +vector-fill! VectorFillX vector-for-each VectorForEach vector-length VectorLength vector-map VectorMap vector-ref VectorRef -vector-set! VectorSetBang +vector-set! VectorSetX vector? VectorP when When with-exception-handler WithExceptionHandler diff --git a/target-under/r7rs-small b/target-under/r7rs-small index 9e2f75d..f3bb774 100644 --- a/target-under/r7rs-small +++ b/target-under/r7rs-small @@ -27,10 +27,10 @@ boolean? boolean_p bytevector bytevector bytevector-append bytevector_append bytevector-copy bytevector_copy -bytevector-copy! bytevector_copy_bang +bytevector-copy! bytevector_copy_x bytevector-length bytevector_length bytevector-u8-ref bytevector_u8_ref -bytevector-u8-set! bytevector_u8_set_bang +bytevector-u8-set! bytevector_u8_set_x bytevector? bytevector_p caaaar caaaar caaadr caaadr @@ -187,7 +187,7 @@ list->string list_to_string list->vector list_to_vector list-copy list_copy list-ref list_ref -list-set! list_set_bang +list-set! list_set_x list-tail list_tail list? list_p load load @@ -246,7 +246,7 @@ rational? rational_p rationalize rationalize read read read-bytevector read_bytevector -read-bytevector! read_bytevector_bang +read-bytevector! read_bytevector_x read-char read_char read-error? read_error_p read-line read_line @@ -258,9 +258,9 @@ remainder remainder reverse reverse round round scheme-report-environment scheme_report_environment -set! set_bang -set-car! set_car_bang -set-cdr! set_cdr_bang +set! set_x +set-car! set_car_x +set-cdr! set_cdr_x sin sin sqrt sqrt square square @@ -277,15 +277,15 @@ string-ci=? string_ci_equal_p string-ci>=? string_ci_greater_equal_p string-ci>? string_ci_greater_p string-copy string_copy -string-copy! string_copy_bang +string-copy! string_copy_x string-downcase string_downcase -string-fill! string_fill_bang +string-fill! string_fill_x string-foldcase string_foldcase string-for-each string_for_each string-length string_length string-map string_map string-ref string_ref -string-set! string_set_bang +string-set! string_set_x string-upcase string_upcase string<=? string_less_equal_p stringlist vector_to_list vector->string vector_to_string vector-append vector_append vector-copy vector_copy -vector-copy! vector_copy_bang -vector-fill! vector_fill_bang +vector-copy! vector_copy_x +vector-fill! vector_fill_x vector-for-each vector_for_each vector-length vector_length vector-map vector_map vector-ref vector_ref -vector-set! vector_set_bang +vector-set! vector_set_x vector? vector_p when when with-exception-handler with_exception_handler diff --git a/translate.scm b/translate.scm index 5bf9fe5..88c2c1e 100644 --- a/translate.scm +++ b/translate.scm @@ -29,7 +29,7 @@ (define names '((#\. "dot") (#\? "p") - (#\! "bang") + (#\! "x") (#\+ "plus") (#\* "star") (#\- "minus")