Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Code cosmetics |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | chicken-5 |
| Files: | files | file ages | folders |
| SHA3-256: |
da6d67bd6f1763112880f8d07879ab1f |
| User & Date: | murphy 2018-08-19 16:00:33 |
Context
|
2018-08-27
| ||
| 14:06 | Corrections of SRFI-4 comprehensions check-in: 3876586c85 user: murphy tags: chicken-5 | |
|
2018-08-19
| ||
| 16:00 | Code cosmetics check-in: da6d67bd6f user: murphy tags: chicken-5 | |
| 02:43 | Updated copyright years check-in: a732bce3c5 user: murphy tags: chicken-5 | |
Changes
Changes to generic.scm.
29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
#f #t
obj->ref
ref->obj)
(define current-serialization-context
(make-parameter #f))
(define %eq?-hash
(foreign-lambda* int ([scheme-object v] [int bound])
"C_return((((intptr_t) v) >> C_FIXNUM_SHIFT) % bound);"))
(define make-serialization-context
(let ([make-serialization-context* (rtd-constructor serialization-context)])
(lambda vs
|
> > > |
29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 |
#f #t obj->ref ref->obj) (define current-serialization-context (make-parameter #f)) ;; FIXME this workaround for crashes in hash functions provided by ;; srfi-69 may interact badly with the garbage collector and should ;; be removed as soon as the implementation of hash tables is fixed. (define %eq?-hash (foreign-lambda* int ([scheme-object v] [int bound]) "C_return((((intptr_t) v) >> C_FIXNUM_SHIFT) % bound);")) (define make-serialization-context (let ([make-serialization-context* (rtd-constructor serialization-context)]) (lambda vs |
Changes to protobuf.egg.
10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
srfi-42
srfi-69
srfi-99)
(test-dependencies
test)
(components
(extension protobuf
(modules protobuf
srfi-4-comprehensions
protobuf-generic
protobuf-reflection
protobuf-syntax
protobuf-encoding))
(program protoc-gen-chicken
(component-dependencies protobuf))
(c-include extend/protobuf
(files "extend/protobuf/bigint.proto"
"extend/protobuf/chicken.proto"))))
;; vim: set ai et ts=8 sts=2 sw=2 ft=scheme: ;;
|
| > | | | | | | > > | | |
10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
srfi-42
srfi-69
srfi-99)
(test-dependencies
test)
(components
(extension protobuf
(modules
protobuf
srfi-4-comprehensions
protobuf-encoding
protobuf-reflection
protobuf-syntax
protobuf-generic))
(program protoc-gen-chicken
(component-dependencies
protobuf))
(c-include extend/protobuf
(files
"extend/protobuf/bigint.proto"
"extend/protobuf/chicken.proto"))))
;; vim: set ai et ts=8 sts=2 sw=2 ft=scheme: ;;
|