12 lines
313 B
Scheme
12 lines
313 B
Scheme
|
(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)
|