Differences From Artifact [16328a4b96]:
- File attic/items.scm — part of check-in [101ee7c52b] at 2021-03-06 04:39:46 on branch v1.65-real-chicken-5 — Try a grounds-up switch to chicken-5 (user: matt, size: 7499) [annotate] [blame] [check-ins using]
- File items.scm — part of check-in [b98ca9757c] at 2020-07-26 22:57:19 on branch v1.65 — Added alternative items specification via files, sxml, slash and space (user: matt, size: 7499) [annotate] [blame] [check-ins using]
To Artifact [b819f8ae5b]:
- File items.scm — part of check-in [a51a5d6058] at 2023-01-30 20:20:41 on branch v1.80-reshape — wip (user: matt, size: 7548) [annotate] [blame] [check-ins using]
| ︙ | |||
19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | + + + |
;; (define itemdat '((ripeness "green ripe overripe")
;; (temperature "cool medium hot")
;; (season "summer winter fall spring")))
(declare (unit items))
(declare (uses common))
(declare (uses debugprint))
(include "common_records.scm")
(import debugprint)
;; Puts out all combinations
(define (process-itemlist hierdepth curritemkey itemlist)
(let ((res '()))
(if (not hierdepth)
(set! hierdepth (length itemlist)))
(let loop ((hed (car itemlist))
|
| ︙ |