mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-20 19:31:31 +03:00
13 lines
205 B
Idris
13 lines
205 B
Idris
|
module System
|
||
|
|
|
||
|
|
%cg chicken (use posix)
|
||
|
|
|
||
|
|
export
|
||
|
|
sleep : Int -> IO ()
|
||
|
|
sleep sec = schemeCall () "blodwen-sleep" [sec]
|
||
|
|
|
||
|
|
export
|
||
|
|
getArgs : IO (List String)
|
||
|
|
getArgs = schemeCall (List String) "blodwen-args" []
|
||
|
|
|