Overview
| Comment: | fix typo |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
ec168497f7c0af7993a1a8a85c2bd1f9 |
| User & Date: | lexi on 2019-07-27 06:30:17 |
| Other Links: | manifest | tags |
Context
|
2019-08-13
| ||
| 20:35 | drugbot update check-in: 19d49add51 user: lexi tags: trunk | |
|
2019-07-27
| ||
| 06:30 | fix typo check-in: ec168497f7 user: lexi tags: trunk | |
| 06:29 | add structure macro check-in: e856b9f3a8 user: lexi tags: trunk | |
Changes
Modified lib/struct.scm from [7cd42aa5f2] to [9011b1b988].
82 82 `((: ,name (#!rest (or symbol ,@(uniq types)) --> ,name )) 83 83 (define (,name . args) 84 84 (define (safe-vector-ref v i) (if (null? v) (error "all struct fields need to be specified unless functional record update syntax is in use") 85 85 (vector-ref v i))) 86 86 (let* ([basis (if (,(symsuf name "?") (car args)) (cdar args) '())] 87 87 [spec (if (null? basis) args (cdr args))]) 88 88 (cons (quote ,typesym) 89 - (vector ,@(reduce-flds 0 fields) 90 - 91 - )))))) 89 + (vector ,@(reduce-flds 0 fields))))))) 92 90 93 91 (let* ([name (car body)] 94 92 [fields (cdr body)] 95 93 [typesym (gensym)] 96 94 [types (map extract-type fields)]) 97 95 (append (emit-pred name typesym) 98 96 (emit-def name types) 99 97 (emit-gen name types typesym fields) 100 98 (reduce-fields name 0 fields))))