lassi
/
lisp-mangler
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Switch suffix from "_bang" to "_x" 

The "_x" convention comes from Guile's C API.
This commit is contained in:
Lassi Kortela 2022-10-04 22:09:09 +03:00
parent e531778723
commit 11fb8803f6
3 changed files with 27 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
target-camel/r7rs-small
View File

@ -27,10 +27,10 @@ boolean? BooleanP
bytevector Bytevector bytevector Bytevector
bytevector-append BytevectorAppend bytevector-append BytevectorAppend
bytevector-copy BytevectorCopy bytevector-copy BytevectorCopy
bytevector-copy! BytevectorCopyBang bytevector-copy! BytevectorCopyX
bytevector-length BytevectorLength bytevector-length BytevectorLength
bytevector-u8-ref BytevectorU8Ref bytevector-u8-ref BytevectorU8Ref
bytevector-u8-set! BytevectorU8SetBang bytevector-u8-set! BytevectorU8SetX
bytevector? BytevectorP bytevector? BytevectorP
caaaar Caaaar caaaar Caaaar
caaadr Caaadr caaadr Caaadr
@ -187,7 +187,7 @@ list->string ListToString
list->vector ListToVector list->vector ListToVector
list-copy ListCopy list-copy ListCopy
list-ref ListRef list-ref ListRef
list-set! ListSetBang list-set! ListSetX
list-tail ListTail list-tail ListTail
list? ListP list? ListP
load Load load Load
@ -246,7 +246,7 @@ rational? RationalP
rationalize Rationalize rationalize Rationalize
read Read read Read
read-bytevector ReadBytevector read-bytevector ReadBytevector
read-bytevector! ReadBytevectorBang read-bytevector! ReadBytevectorX
read-char ReadChar read-char ReadChar
read-error? ReadErrorP read-error? ReadErrorP
read-line ReadLine read-line ReadLine
@ -258,9 +258,9 @@ remainder Remainder
reverse Reverse reverse Reverse
round Round round Round
scheme-report-environment SchemeReportEnvironment scheme-report-environment SchemeReportEnvironment
set! SetBang set! SetX
set-car! SetCarBang set-car! SetCarX
set-cdr! SetCdrBang set-cdr! SetCdrX
sin Sin sin Sin
sqrt Sqrt sqrt Sqrt
square Square square Square
@ -277,15 +277,15 @@ string-ci=? StringCiEqualP
string-ci>=? StringCiGreaterEqualP string-ci>=? StringCiGreaterEqualP
string-ci>? StringCiGreaterP string-ci>? StringCiGreaterP
string-copy StringCopy string-copy StringCopy
string-copy! StringCopyBang string-copy! StringCopyX
string-downcase StringDowncase string-downcase StringDowncase
string-fill! StringFillBang string-fill! StringFillX
string-foldcase StringFoldcase string-foldcase StringFoldcase
string-for-each StringForEach string-for-each StringForEach
string-length StringLength string-length StringLength
string-map StringMap string-map StringMap
string-ref StringRef string-ref StringRef
string-set! StringSetBang string-set! StringSetX
string-upcase StringUpcase string-upcase StringUpcase
string<=? StringLessEqualP string<=? StringLessEqualP
string<? StringLessP string<? StringLessP
@ -316,13 +316,13 @@ vector->list VectorToList
vector->string VectorToString vector->string VectorToString
vector-append VectorAppend vector-append VectorAppend
vector-copy VectorCopy vector-copy VectorCopy
vector-copy! VectorCopyBang vector-copy! VectorCopyX
vector-fill! VectorFillBang vector-fill! VectorFillX
vector-for-each VectorForEach vector-for-each VectorForEach
vector-length VectorLength vector-length VectorLength
vector-map VectorMap vector-map VectorMap
vector-ref VectorRef vector-ref VectorRef
vector-set! VectorSetBang vector-set! VectorSetX
vector? VectorP vector? VectorP
when When when When
with-exception-handler WithExceptionHandler with-exception-handler WithExceptionHandler

26
target-under/r7rs-small
View File

@ -27,10 +27,10 @@ boolean? boolean_p
bytevector bytevector bytevector bytevector
bytevector-append bytevector_append bytevector-append bytevector_append
bytevector-copy bytevector_copy bytevector-copy bytevector_copy
bytevector-copy! bytevector_copy_bang bytevector-copy! bytevector_copy_x
bytevector-length bytevector_length bytevector-length bytevector_length
bytevector-u8-ref bytevector_u8_ref bytevector-u8-ref bytevector_u8_ref
bytevector-u8-set! bytevector_u8_set_bang bytevector-u8-set! bytevector_u8_set_x
bytevector? bytevector_p bytevector? bytevector_p
caaaar caaaar caaaar caaaar
caaadr caaadr caaadr caaadr
@ -187,7 +187,7 @@ list->string list_to_string
list->vector list_to_vector list->vector list_to_vector
list-copy list_copy list-copy list_copy
list-ref list_ref list-ref list_ref
list-set! list_set_bang list-set! list_set_x
list-tail list_tail list-tail list_tail
list? list_p list? list_p
load load load load
@ -246,7 +246,7 @@ rational? rational_p
rationalize rationalize rationalize rationalize
read read read read
read-bytevector read_bytevector read-bytevector read_bytevector
read-bytevector! read_bytevector_bang read-bytevector! read_bytevector_x
read-char read_char read-char read_char
read-error? read_error_p read-error? read_error_p
read-line read_line read-line read_line
@ -258,9 +258,9 @@ remainder remainder
reverse reverse reverse reverse
round round round round
scheme-report-environment scheme_report_environment scheme-report-environment scheme_report_environment
set! set_bang set! set_x
set-car! set_car_bang set-car! set_car_x
set-cdr! set_cdr_bang set-cdr! set_cdr_x
sin sin sin sin
sqrt sqrt sqrt sqrt
square square square square
@ -277,15 +277,15 @@ string-ci=? string_ci_equal_p
string-ci>=? string_ci_greater_equal_p string-ci>=? string_ci_greater_equal_p
string-ci>? string_ci_greater_p string-ci>? string_ci_greater_p
string-copy string_copy string-copy string_copy
string-copy! string_copy_bang string-copy! string_copy_x
string-downcase string_downcase string-downcase string_downcase
string-fill! string_fill_bang string-fill! string_fill_x
string-foldcase string_foldcase string-foldcase string_foldcase
string-for-each string_for_each string-for-each string_for_each
string-length string_length string-length string_length
string-map string_map string-map string_map
string-ref string_ref string-ref string_ref
string-set! string_set_bang string-set! string_set_x
string-upcase string_upcase string-upcase string_upcase
string<=? string_less_equal_p string<=? string_less_equal_p
string<? string_less_p string<? string_less_p
@ -316,13 +316,13 @@ vector->list vector_to_list
vector->string vector_to_string vector->string vector_to_string
vector-append vector_append vector-append vector_append
vector-copy vector_copy vector-copy vector_copy
vector-copy! vector_copy_bang vector-copy! vector_copy_x
vector-fill! vector_fill_bang vector-fill! vector_fill_x
vector-for-each vector_for_each vector-for-each vector_for_each
vector-length vector_length vector-length vector_length
vector-map vector_map vector-map vector_map
vector-ref vector_ref vector-ref vector_ref
vector-set! vector_set_bang vector-set! vector_set_x
vector? vector_p vector? vector_p
when when when when
with-exception-handler with_exception_handler with-exception-handler with_exception_handler

2
translate.scm
View File

@ -29,7 +29,7 @@
(define names (define names
'((#\. "dot") '((#\. "dot")
(#\? "p") (#\? "p")
(#\! "bang") (#\! "x")
(#\+ "plus") (#\+ "plus")
(#\* "star") (#\* "star")
(#\- "minus") (#\- "minus")