Overview
Comment: | shit |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA3-256: |
401c47f4133d6d3ac6a8dda01a0adbf3 |
User & Date: | lexi on 2020-02-04 11:27:22 |
Other Links: | manifest | tags |
Context
2020-10-15
| ||
08:07 | updates check-in: c572c01910 user: lexi tags: trunk | |
2020-02-04
| ||
11:27 | shit check-in: 401c47f413 user: lexi tags: trunk | |
2019-11-19
| ||
01:44 | fix tpyos check-in: 23520bb165 user: lexi tags: trunk | |
Changes
Modified lib/bot.scm from [d5281d581a] to [51a318e9be].
26 26 ; create the case structure for rule expansion 27 27 (define-for-syntax (@rewrite-patterns patterns) 28 28 (define (nest-case pair) 29 29 (cons (list (car pair)) 30 30 (cdr pair))) 31 31 32 32 (define (wrap pat) 33 - (if (eq? (cdr pat) '()) ;then 33 + (if (null? (cdr pat)) ;then 34 34 pat 35 35 ; else 36 36 (list (cons 'string-append pat)))) 37 37 38 38 (let ([branches (map wrap patterns)]) 39 39 (@one-of nest-case branches))) 40 40