-
This commit is contained in:
@@ -70,7 +70,7 @@
|
||||
(send el-at set-inner-html! as-str)
|
||||
(send el-length set-inner-html! ls-str)
|
||||
(let ((seeker (exact->inexact (/ (* 100 as) ls))))
|
||||
(displayln (format "seeker = ~a" seeker))
|
||||
;(displayln (format "seeker = ~a" seeker))
|
||||
(send el-seeker set! (format "~a" seeker)))
|
||||
)
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user