(install-dep-syntax)
(defwindow rolling-window () ("Rolling")
- (let* ((width (make-leaf-dep))
- (thick (make-leaf-dep))
- (length (make-leaf-dep))
- (stock-type (make-leaf-dep :round))
- (stock-size (make-leaf-dep))
+ (let* ((width (make-dep))
+ (thick (make-dep))
+ (length (make-dep))
+ (stock-type (make-dep :round))
+ (stock-size (make-dep))
(volume #[(* ?width ?thick ?length)])
(stock-length #[(/ ?volume
(case ?stock-type