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 [c9b6afabe6]:
- File items.scm — part of check-in [681937af52] at 2021-02-15 00:17:24 on branch v1.6569-multi-db-wip — Few more issues cleaned up and it seems to be running (user: matt, size: 7595) [annotate] [blame] [check-ins using] [more...]
| ︙ | |||
19 20 21 22 23 24 25 26 27 28 29 30 31 32 | 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | + + + + + + |
;; (define itemdat '((ripeness "green ripe overripe")
;; (temperature "cool medium hot")
;; (season "summer winter fall spring")))
(declare (unit items))
(declare (uses common))
(declare (uses commonmod))
(import commonmod)
(declare (uses configfmod))
(import configfmod)
(include "common_records.scm")
;; Puts out all combinations
(define (process-itemlist hierdepth curritemkey itemlist)
(let ((res '()))
(if (not hierdepth)
|
| ︙ |