foss-mmo/modules/local-storage.scm

12 lines
313 B
Scheme
Raw Normal View History

(define-module (local-storage)
#:use-module (hoot ffi)
#:export (local-storage-ref
local-storage-set!))
(define-foreign local-storage-ref
"localStorage" "getItem"
(ref string) -> (ref string))
(define-foreign local-storage-set!
"localStorage" "setItem"
(ref string) (ref string) -> none)