Differences From Artifact [2265706948]:
- File items-inc.scm — part of check-in [fde3cd0ad1] at 2019-11-03 04:00:00 on branch v1.65-try3 — try3 (user: matt, size: 5672) [annotate] [blame] [check-ins using]
- File items.scm — part of check-in [d668d912e4] at 2018-02-21 13:47:56 on branch v1.65 — More license clean up (missed a whole bunch) (user: mrwellan, size: 5672) [annotate] [blame] [check-ins using]
To Artifact [2a95bd53d9]:
- File items.scm — part of check-in [d636d628b5] at 2019-10-22 18:11:38 on branch v1.65-wip — Added commonmod to needed places. (user: mrwellan, size: 5719) [annotate] [blame] [check-ins using]
| ︙ | |||
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 | + + + |
;; (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)
(include "common_records.scm")
;; Puts out all combinations
(define (process-itemlist hierdepth curritemkey itemlist)
(let ((res '()))
(if (not hierdepth)
|
| ︙ |