Skip to content

Commit

Permalink
rename set-wrapper-procedure! to set-wrapper-procedure-procedure!
Browse files Browse the repository at this point in the history 
The extra `procedure` looks weird, but the mutator name
`set-wrapper-procedure!` was not consistent with the accessor name
`wrapper-procedure-procedure`.

Original commit: racket/ChezScheme@eb3a0b5
  • Loading branch information
@mflatt
mflatt committed Nov 16, 2022
1 parent d5ea345 commit 9fc73a4
Show file tree
Hide file tree
Showing 7 changed files with 29 additions and 29 deletions.
2 changes: 1 addition & 1 deletion boot/pb
Submodule pb updated 4 files
+2 −2 equates.h
+ − petite.boot
+ − scheme.boot
+2 −2 scheme.h
4 changes: 2 additions & 2 deletions csug/objects.stex
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4759,7 +4759,7 @@ Changes the data stored in \var{w-proc} to \var{data}.

%----------------------------------------------------------------------------
\entryheader
\formdef{set-wrapper-procedure!}{\categoryprocedure}{(set-wrapper-procedure! \var{w-proc} \var{proc})}
\formdef{set-wrapper-procedure-procedure!}{\categoryprocedure}{(set-wrapper-procedure-procedure! \var{w-proc} \var{proc})}
\returns unspecified
\listlibraries
\endentryheader
Expand All @@ -4778,7 +4778,7 @@ results of \\ \scheme{(procedure-arity-mask \var{w-proc})} and
\schemedisplay
(define vector3 (make-wrapper-procedure vector 8 'my-data))
(vector3 1 2 3) ; => #(1 2 3)
(set-wrapper-procedure! vector3 list)
(set-wrapper-procedure-procedure! vector3 list)
(vector3 1 2 3) ; => (1 2 3)
\endschemedisplay

Expand Down
14 changes: 7 additions & 7 deletions mats/misc.ms
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4844,17 +4844,17 @@
(equal? (wrapper-procedure-data (make-arity-wrapper-procedure (lambda args args) 1 'data))
'data)

(error? (set-wrapper-procedure!))
(error? (set-wrapper-procedure! (make-arity-wrapper-procedure (lambda args args) 1 #f)))
(error? (set-wrapper-procedure! 1 void))
(error? (set-wrapper-procedure! (lambda args args) void))
(error? (set-wrapper-procedure! (interpret '(lambda args args)) void))
(error? (set-wrapper-procedure-procedure!))
(error? (set-wrapper-procedure-procedure! (make-arity-wrapper-procedure (lambda args args) 1 #f)))
(error? (set-wrapper-procedure-procedure! 1 void))
(error? (set-wrapper-procedure-procedure! (lambda args args) void))
(error? (set-wrapper-procedure-procedure! (interpret '(lambda args args)) void))
(let ([p (make-wrapper-procedure (lambda args args) 8 #f)])
(set-wrapper-procedure! p vector)
(set-wrapper-procedure-procedure! p vector)
(equal? (p 1 2 3)
'#(1 2 3)))
(let ([p (make-arity-wrapper-procedure (lambda args args) 8 #f)])
(set-wrapper-procedure! p vector)
(set-wrapper-procedure-procedure! p vector)
(equal? (p 1 2 3)
'#(1 2 3)))

Expand Down
20 changes: 10 additions & 10 deletions mats/patch-compile-0-t-f-f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -3998,11 +3998,11 @@
misc.mo:Expected error in mat wrapper-procedure: "wrapper-procedure-data: 1 is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "wrapper-procedure-data: #<procedure> is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "wrapper-procedure-data: #<procedure> is not a wrapper procedure".
! misc.mo:Expected error in mat wrapper-procedure: "incorrect argument count in call (set-wrapper-procedure!)".
! misc.mo:Expected error in mat wrapper-procedure: "incorrect argument count in call (set-wrapper-procedure! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure!: 1 is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure!: #<procedure> is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure!: #<procedure> is not a wrapper procedure".
! misc.mo:Expected error in mat wrapper-procedure: "incorrect argument count in call (set-wrapper-procedure-procedure!)".
! misc.mo:Expected error in mat wrapper-procedure: "incorrect argument count in call (set-wrapper-procedure-procedure! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure-procedure!: 1 is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure-procedure!: #<procedure> is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure-procedure!: #<procedure> is not a wrapper procedure".
! misc.mo:Expected error in mat wrapper-procedure: "incorrect argument count in call (set-wrapper-procedure-data!)".
! misc.mo:Expected error in mat wrapper-procedure: "incorrect argument count in call (set-wrapper-procedure-data! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure-data!: 1 is not a wrapper procedure".
Expand All @@ -4012,11 +4012,11 @@
misc.mo:Expected error in mat wrapper-procedure: "wrapper-procedure-data: 1 is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "wrapper-procedure-data: #<procedure> is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "wrapper-procedure-data: #<procedure> is not a wrapper procedure".
! misc.mo:Expected error in mat wrapper-procedure: "incorrect number of arguments 0 to #<procedure set-wrapper-procedure!>".
! misc.mo:Expected error in mat wrapper-procedure: "incorrect number of arguments 1 to #<procedure set-wrapper-procedure!>".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure!: 1 is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure!: #<procedure> is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure!: #<procedure> is not a wrapper procedure".
! misc.mo:Expected error in mat wrapper-procedure: "incorrect number of arguments 0 to #<procedure set-wrapper-procedure-procedure!>".
! misc.mo:Expected error in mat wrapper-procedure: "incorrect number of arguments 1 to #<procedure set-wrapper-procedure-procedure!>".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure-procedure!: 1 is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure-procedure!: #<procedure> is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure-procedure!: #<procedure> is not a wrapper procedure".
! misc.mo:Expected error in mat wrapper-procedure: "incorrect number of arguments 0 to #<procedure set-wrapper-procedure-data!>".
! misc.mo:Expected error in mat wrapper-procedure: "incorrect number of arguments 1 to #<procedure set-wrapper-procedure-data!>".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure-data!: 1 is not a wrapper procedure".
Expand Down
14 changes: 7 additions & 7 deletions mats/root-experr-compile-0-f-f-f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -69,8 +69,8 @@ primvars.mo:Expected error testing (reference-address->object (quote #!eof)): Ex
primvars.mo:Expected error testing (reference-address->object (quote #f)): Exception in reference-address->object: invalid address #f
primvars.mo:Expected error testing (reference*-address->object (quote #!eof)): Exception in reference*-address->object: invalid address #!eof
primvars.mo:Expected error testing (reference*-address->object (quote #f)): Exception in reference*-address->object: invalid address #f
primvars.mo:Expected error testing (set-wrapper-procedure! 1.0+2.0i (quote 0)): Exception in set-wrapper-procedure!: 1.0+2.0i is not a wrapper procedure
primvars.mo:Expected error testing (set-wrapper-procedure! 1.0+2.0i (quote #f)): Exception in set-wrapper-procedure!: 1.0+2.0i is not a wrapper procedure
primvars.mo:Expected error testing (set-wrapper-procedure-procedure! 1.0+2.0i (quote 0)): Exception in set-wrapper-procedure-procedure!: 1.0+2.0i is not a wrapper procedure
primvars.mo:Expected error testing (set-wrapper-procedure-procedure! 1.0+2.0i (quote #f)): Exception in set-wrapper-procedure-procedure!: 1.0+2.0i is not a wrapper procedure
primvars.mo:Expected error testing (string-grapheme-count "a" (quote #!eof)): Exception in string-grapheme-count: #!eof is not a valid start index for "a"
primvars.mo:Expected error testing (string-grapheme-count "a" (quote #f)): Exception in string-grapheme-count: #f is not a valid start index for "a"
primvars.mo:Expected error testing (string-grapheme-span "a" (quote #!eof)): Exception in string-grapheme-span: #!eof is not a valid start index for "a"
Expand Down Expand Up @@ -4208,11 +4208,11 @@ misc.mo:Expected error in mat wrapper-procedure: "incorrect number of arguments
misc.mo:Expected error in mat wrapper-procedure: "wrapper-procedure-data: 1 is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "wrapper-procedure-data: #<procedure> is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "wrapper-procedure-data: #<procedure> is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "incorrect argument count in call (set-wrapper-procedure!)".
misc.mo:Expected error in mat wrapper-procedure: "incorrect argument count in call (set-wrapper-procedure! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure!: 1 is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure!: #<procedure> is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure!: #<procedure> is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "incorrect argument count in call (set-wrapper-procedure-procedure!)".
misc.mo:Expected error in mat wrapper-procedure: "incorrect argument count in call (set-wrapper-procedure-procedure! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure-procedure!: 1 is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure-procedure!: #<procedure> is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure-procedure!: #<procedure> is not a wrapper procedure".
misc.mo:Expected error in mat wrapper-procedure: "incorrect argument count in call (set-wrapper-procedure-data!)".
misc.mo:Expected error in mat wrapper-procedure: "incorrect argument count in call (set-wrapper-procedure-data! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
misc.mo:Expected error in mat wrapper-procedure: "set-wrapper-procedure-data!: 1 is not a wrapper procedure".
Expand Down
2 changes: 1 addition & 1 deletion s/primdata.ss
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1702,7 +1702,7 @@
(set-timer [sig [(ufixnum) -> (ufixnum)]] [flags true])
(set-top-level-value! [sig [(symbol ptr) (symbol ptr environment) -> (void)]] [flags true])
(set-virtual-register! [sig [(sub-index ptr) -> (void)]] [flags true])
(set-wrapper-procedure! [sig [(ptr procedure) -> (void)]] [flags true])
(set-wrapper-procedure-procedure! [sig [(ptr procedure) -> (void)]] [flags true])
(set-wrapper-procedure-data! [sig [(ptr ptr) -> (void)]] [flags true])
(sinh [sig [(number) -> (number)]] [flags arith-op mifoldable discard])
(sleep [sig [(time) -> (void)]] [flags true])
Expand Down
2 changes: 1 addition & 1 deletion s/prims.ss
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2919,7 +2919,7 @@
(unless (wrapper-procedure? x) ($oops who "~s is not a wrapper procedure" x))
($closure-ref x 0)))

(define-who set-wrapper-procedure!
(define-who set-wrapper-procedure-procedure!
(lambda (x proc)
(unless (wrapper-procedure? x) ($oops who "~s is not a wrapper procedure" x))
(unless (procedure? proc) ($oops who "~s is not a procedure" proc))
Expand Down

0 comments on commit 9fc73a4

Please sign in to comment.