Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | fixed bug for in args-fold.sls thanks to anonymous |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
75d1b77428091e763cc24d2336fec9e3 |
| User & Date: | aldo 2018-12-09 15:35:27 |
Context
|
2018-12-09
| ||
| 15:41 | fixed bug for in args-fold.sls thanks to anonymous check-in: 723d9456e8 user: aldo tags: trunk | |
| 15:35 | fixed bug for in args-fold.sls thanks to anonymous check-in: 75d1b77428 user: aldo tags: trunk | |
| 15:23 | added keyword and optional syntax for lambda and define check-in: 2b9e9a2608 user: aldo tags: trunk | |
Changes
Changes to ffi-utils.sls.
123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 |
; <flags-name> -> takes a list of flags and returns a number that correspond
; to the bitwise or of the corresponding values
; <flags-name>-ref -> takes a number as argument and returns the flag name
; <flags-name>-decode -> takes a number and returns a list of flags that match to create that value
; you can use also (flags-alist <flags-name>-flags) to get the alist of flags
; and (flags-name <flags-name>-flags) to get the name
;EXAMPLE: (define-flag colors (red 1) (blue 2) (green 4))
;> color-flags -> #[#{flags ew79exa0q5qi23j9k1faa8-51} color ((red . 1) (blue . 2) (green . 4))]
;> (color 'blue) -> 2
;> (color 'red 'blue) -> 3
;> (color 'black) -> Exception in color: symbol not found with irritant (black)
;> (color-ref 1) -> red
;> (color-ref 5) -> #f
;> (color-decode 3) -> (red blue)
|
| |
123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 |
; <flags-name> -> takes a list of flags and returns a number that correspond
; to the bitwise or of the corresponding values
; <flags-name>-ref -> takes a number as argument and returns the flag name
; <flags-name>-decode -> takes a number and returns a list of flags that match to create that value
; you can use also (flags-alist <flags-name>-flags) to get the alist of flags
; and (flags-name <flags-name>-flags) to get the name
;EXAMPLE: (define-flags colors (red 1) (blue 2) (green 4))
;> color-flags -> #[#{flags ew79exa0q5qi23j9k1faa8-51} color ((red . 1) (blue . 2) (green . 4))]
;> (color 'blue) -> 2
;> (color 'red 'blue) -> 3
;> (color 'black) -> Exception in color: symbol not found with irritant (black)
;> (color-ref 1) -> red
;> (color-ref 5) -> #f
;> (color-decode 3) -> (red blue)
|
Changes to srfi/s37/args-fold.sls.
37 38 39 40 41 42 43 44 45 46 |
(not (and ra oa))
(procedure? p))
(c n ra oa p)
(assertion-violation 'option "invalid arguments" n ra oa p))))))
(define args-fold
(let ([option make-option])
(include/resolve ("srfi" "%3a37") "srfi-37-reference.scm")
args-fold))
)
|
| |
37 38 39 40 41 42 43 44 45 46 |
(not (and ra oa))
(procedure? p))
(c n ra oa p)
(assertion-violation 'option "invalid arguments" n ra oa p))))))
(define args-fold
(let ([option make-option])
(include/resolve ("srfi" "37") "srfi-37-reference.scm")
args-fold))
)
|
Changes to srfi/tests/multi-dimensional-arrays--arlib.sps.
14 15 16 17 18 19 20 21 22 23 |
(define-syntax past (syntax-rules () ((_ . r) (begin))))
(let-syntax ((or
(syntax-rules (error)
((_ expr (error msg))
(check expr => #T))
((_ . r) (or . r)))))
(include/resolve ("srfi" "%3a25") "list.scm"))
(check-report)
|
| |
14 15 16 17 18 19 20 21 22 23 |
(define-syntax past (syntax-rules () ((_ . r) (begin))))
(let-syntax ((or
(syntax-rules (error)
((_ expr (error msg))
(check expr => #T))
((_ . r) (or . r)))))
(include/resolve ("srfi" "s25") "list.scm"))
(check-report)
|