Overhaul.

[jlisp] / rolling.lisp

diff --git a/rolling.lisp b/rolling.lisp
index 18a67bdddf565281ff3496c041aec9eaba9fef6c..61874c7334e9d7430eb58a846cc8818c260ba65b 100644 (file)
--- a/rolling.lisp
+++ b/rolling.lisp
@@ -24,11 +24,11 @@
 (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