X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/c8ca09d949657cbf4bd98b179e1c2f9b5762db3f..88670beca060fc94190b30d4dc6ccb38dbe2fbcd:/src/components/range-list.lisp

diff --git a/src/components/range-list.lisp b/src/components/range-list.lisp
index bf38ed2..1d07584 100644
--- a/src/components/range-list.lisp
+++ b/src/components/range-list.lisp
@@ -97,12 +97,12 @@ MAKE-RANGE-LIST-GENERATOR INSTANCE :chunk-size WINDOW-SIZE GENERATOR-ARGS"))
     (setf (range-list.offset self)
           (funcall (range-list.generator self) :offset))))
 
-(defaction scroll ((self range-list) op)
+(defmethod/cc scroll ((self range-list) op)
     (funcall (range-list.generator self) :offset (range-list.offset self))
     (setf (mewa::instances self)
           (range-list.fetch-items self op)))
 
-(defaction scroll-to-page ((self range-list) window-number)
+(defmethod/cc scroll-to-page ((self range-list) window-number)
   (setf (range-list.offset self) window-number)
   (scroll self :current))