suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

rename who -> maybe-who

Browse Source 
original commit: d03334caa7cfe429b5ea0d4ed245524fcf787cab
This commit is contained in:
Gustavo Massaccesi 2019-01-28 18:48:50 -03:00
parent 9c36f8dc3d
commit d56e01edc9
3 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mats/primvars.ms
View File

@ -415,6 +415,7 @@
[(maybe-transcoder) (native-transcoder) 0] [(maybe-transcoder) (native-transcoder) 0]
[(maybe-ufixnum) 0 -1 (+ (most-positive-fixnum) 1) 'a] [(maybe-ufixnum) 0 -1 (+ (most-positive-fixnum) 1) 'a]
[(maybe-uint) 0 -1 'a] [(maybe-uint) 0 -1 'a]
[(maybe-who) 'who 17]
[(message-condition) (make-message-condition 17) (make-who-condition 'who) 'q #f] [(message-condition) (make-message-condition 17) (make-who-condition 'who) 'q #f]
[(number) 1+2i 'oops #f] [(number) 1+2i 'oops #f]
[(old-hash-table) *old-hash-table '((a . b)) #f] [(old-hash-table) *old-hash-table '((a . b)) #f]
@ -471,8 +472,7 @@
[(uptr) 0 -1 'a (+ *max-uptr 1) #f] [(uptr) 0 -1 'a (+ *max-uptr 1) #f]
[(uptr/iptr) -1 'q (+ *max-uptr 1) (- *min-iptr 1) #f] [(uptr/iptr) -1 'q (+ *max-uptr 1) (- *min-iptr 1) #f]
[(vector) '#(a) "a" #f] [(vector) '#(a) "a" #f]
[(who-condition) (make-who-condition 'me) (make-message-condition "hello") 'the-who] [(who-condition) (make-who-condition 'me) (make-message-condition "hello") 'the-who])
[(who) 'who 17])
(meta-cond (meta-cond
[(memq 'pthreads feature*) [(memq 'pthreads feature*)
(declare-types (declare-types

18
s/primdata.ss
View File

@ -335,8 +335,8 @@
(vector-fill! [sig [(vector ptr) -> (void)]] [flags true ieee r5rs]) (vector-fill! [sig [(vector ptr) -> (void)]] [flags true ieee r5rs])
(vector-map [sig [(procedure vector vector ...) -> (vector)]] [flags cp03]) (vector-map [sig [(procedure vector vector ...) -> (vector)]] [flags cp03])
(vector-for-each [sig [(procedure vector vector ...) -> (ptr ...)]] [flags cp03]) (vector-for-each [sig [(procedure vector vector ...) -> (ptr ...)]] [flags cp03])
(error [sig [(who string ptr ...) -> (bottom)]] [flags abort-op]) (error [sig [(maybe-who string ptr ...) -> (bottom)]] [flags abort-op])
(assertion-violation [sig [(who string ptr ...) -> (bottom)]] [flags abort-op]) (assertion-violation [sig [(maybe-who string ptr ...) -> (bottom)]] [flags abort-op])
(apply [sig [(procedure ptr ... list) -> (ptr ...)]] [flags cp02 ieee r5rs]) (apply [sig [(procedure ptr ... list) -> (ptr ...)]] [flags cp02 ieee r5rs])
(call-with-current-continuation [sig [(procedure) -> (ptr ...)]] [flags ieee r5rs]) (call-with-current-continuation [sig [(procedure) -> (ptr ...)]] [flags ieee r5rs])
(call/cc [sig [(procedure) -> (ptr ...)]] [flags]) (call/cc [sig [(procedure) -> (ptr ...)]] [flags])
@ -800,7 +800,7 @@
(syntax->datum [sig [(ptr) -> (ptr)]] [flags pure unrestricted mifoldable discard]) (syntax->datum [sig [(ptr) -> (ptr)]] [flags pure unrestricted mifoldable discard])
(datum->syntax [sig [(identifier ptr) -> (syntax)]] [flags pure mifoldable discard true]) (datum->syntax [sig [(identifier ptr) -> (syntax)]] [flags pure mifoldable discard true])
(generate-temporaries [sig [(list) -> (list)]] [flags alloc]) (generate-temporaries [sig [(list) -> (list)]] [flags alloc])
(syntax-violation [sig [(who string ptr) (who string ptr ptr) -> (bottom)]] [flags abort-op]) (syntax-violation [sig [(maybe-who string ptr) (maybe-who string ptr ptr) -> (bottom)]] [flags abort-op])
) )
(define-symbol-flags* ([libraries (rnrs) (rnrs unicode)] [flags primitive proc]) ; unicode (define-symbol-flags* ([libraries (rnrs) (rnrs unicode)] [flags primitive proc]) ; unicode
@ -1135,7 +1135,7 @@
(apropos [sig [(sub-ptr) (sub-ptr environment) -> (void)]] [flags true]) (apropos [sig [(sub-ptr) (sub-ptr environment) -> (void)]] [flags true])
(apropos-list [sig [(sub-ptr) (sub-ptr environment) -> (list)]] [flags alloc]) (apropos-list [sig [(sub-ptr) (sub-ptr environment) -> (list)]] [flags alloc])
(ash [sig [(sint sint) -> (sint)]] [flags arith-op mifoldable discard cp03]) (ash [sig [(sint sint) -> (sint)]] [flags arith-op mifoldable discard cp03])
(assertion-violationf [sig [(who string sub-ptr ...) -> (bottom)]] [flags abort-op]) ; 2nd arg is format string (assertion-violationf [sig [(maybe-who string sub-ptr ...) -> (bottom)]] [flags abort-op]) ; 2nd arg is format string
(asinh [sig [(number) -> (number)]] [flags arith-op mifoldable discard]) (asinh [sig [(number) -> (number)]] [flags arith-op mifoldable discard])
(atanh [sig [(number) -> (number)]] [flags arith-op mifoldable discard]) (atanh [sig [(number) -> (number)]] [flags arith-op mifoldable discard])
(atom? [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard]) (atom? [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard])
@ -1276,7 +1276,7 @@
(environment-symbols [sig [(environment) -> (list)]] [flags true]) (environment-symbols [sig [(environment) -> (list)]] [flags true])
(ephemeron-cons [sig [(ptr ptr) -> ((ptr . ptr))]] [flags unrestricted alloc]) (ephemeron-cons [sig [(ptr ptr) -> ((ptr . ptr))]] [flags unrestricted alloc])
(ephemeron-pair? [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard]) (ephemeron-pair? [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard])
(errorf [sig [(who string sub-ptr ...) -> (bottom)]] [flags abort-op]) ; second arg is format string (errorf [sig [(maybe-who string sub-ptr ...) -> (bottom)]] [flags abort-op]) ; second arg is format string
(eq-hashtable? [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard]) (eq-hashtable? [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard])
(eq-hashtable-cell [sig [(eq-hashtable ptr ptr) -> ((ptr . ptr))]] [flags true]) (eq-hashtable-cell [sig [(eq-hashtable ptr ptr) -> ((ptr . ptr))]] [flags true])
(eq-hashtable-contains? [sig [(eq-hashtable ptr) -> (boolean)]] [flags discard]) (eq-hashtable-contains? [sig [(eq-hashtable ptr) -> (boolean)]] [flags discard])
@ -1733,8 +1733,8 @@
(virtual-register-count [sig [() -> (length)]] [flags pure unrestricted true cp02]) (virtual-register-count [sig [() -> (length)]] [flags pure unrestricted true cp02])
(visit [sig [(pathname) -> (void)]] [flags true]) (visit [sig [(pathname) -> (void)]] [flags true])
(void [sig [() -> (void)]] [flags pure unrestricted mifoldable discard true]) (void [sig [() -> (void)]] [flags pure unrestricted mifoldable discard true])
(warning [sig [(who string sub-ptr ...) -> (ptr ...)]] [flags]) (warning [sig [(maybe-who string sub-ptr ...) -> (ptr ...)]] [flags])
(warningf [sig [(who string sub-ptr ...) -> (ptr ...)]] [flags]) (warningf [sig [(maybe-who string sub-ptr ...) -> (ptr ...)]] [flags])
(weak-cons [sig [(ptr ptr) -> ((ptr . ptr))]] [flags unrestricted alloc]) (weak-cons [sig [(ptr ptr) -> ((ptr . ptr))]] [flags unrestricted alloc])
(weak-pair? [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard]) (weak-pair? [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard])
(with-cost-center [sig [(cost-center procedure) (ptr cost-center procedure) -> (ptr ...)]] [flags]) (with-cost-center [sig [(cost-center procedure) (ptr cost-center procedure) -> (ptr ...)]] [flags])
@ -1742,7 +1742,7 @@
(with-input-from-string [sig [(string procedure) -> (ptr ...)]] [flags]) (with-input-from-string [sig [(string procedure) -> (ptr ...)]] [flags])
(with-output-to-file [sig [(pathname procedure) (pathname procedure sub-ptr) -> (ptr ...)]] [flags]) ; has options argument (with-output-to-file [sig [(pathname procedure) (pathname procedure sub-ptr) -> (ptr ...)]] [flags]) ; has options argument
(with-output-to-string [sig [(procedure) -> (string)]] [flags]) (with-output-to-string [sig [(procedure) -> (string)]] [flags])
(with-source-path [sig [(who pathname procedure) -> (ptr ...)]] [flags]) (with-source-path [sig [(maybe-who pathname procedure) -> (ptr ...)]] [flags])
(wrapper-procedure? [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard]) (wrapper-procedure? [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard])
(wrapper-procedure-data [sig [(ptr) -> (ptr)]] [flags discard]) (wrapper-procedure-data [sig [(ptr) -> (ptr)]] [flags discard])
) )
@ -2194,7 +2194,7 @@
($record-cas! [sig [(record sub-index ptr ptr) -> (boolean)]] [flags]) ($record-cas! [sig [(record sub-index ptr ptr) -> (boolean)]] [flags])
($record-equal-procedure [flags discard]) ($record-equal-procedure [flags discard])
($record-hash-procedure [flags discard]) ($record-hash-procedure [flags discard])
($record-oops #;[sig [(who sub-ptr rtd) -> (bottom)]] [flags abort-op]) ($record-oops #;[sig [(maybe-who sub-ptr rtd) -> (bottom)]] [flags abort-op])
($record-ref [sig [(ptr sub-index) -> (ptr)]] [flags mifoldable discard cp03]) ($record-ref [sig [(ptr sub-index) -> (ptr)]] [flags mifoldable discard cp03])
($record-set! [sig [(ptr sub-index ptr) -> (void)]] [flags true]) ($record-set! [sig [(ptr sub-index ptr) -> (void)]] [flags true])
($record-type-descriptor [flags pure mifoldable discard true]) ($record-type-descriptor [flags pure mifoldable discard true])

1
s/priminfo.ss
View File

@ -69,7 +69,6 @@
(eq? (car out) 'sub-ptr) (eq? (car out) 'sub-ptr)
(eq? (car out) 'boolean) (eq? (car out) 'boolean)
(eq? (car out) 'bottom) (eq? (car out) 'bottom)
(eq? (car out) 'who)
(let ([name (symbol->string (car out))]) (let ([name (symbol->string (car out))])
(and (>= (string-length name) 6) (and (>= (string-length name) 6)
(string=? (substring name 0 6) "maybe-"))))))))) (string=? (substring name 0 6) "maybe-")))))))))