Linux tsuru-no-tsurugi 5.15.0-186-generic #196-Ubuntu SMP Sat Jun 20 16:09:34 UTC 2026 x86_64
Apache/2.4.52 (Ubuntu)
Server IP : 192.168.0.18 & Your IP : 216.73.216.68
Domains :
Cant Read [ /etc/named.conf ]
User : www-data
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
guile /
3.0 /
scheme /
Delete
Unzip
Name
Size
Permission
Date
Action
base.scm
18.84
KB
-rw-r--r--
2021-05-10 17:28
case-lambda.scm
840
B
-rw-r--r--
2021-05-10 17:28
char.scm
3.4
KB
-rw-r--r--
2021-05-10 17:28
complex.scm
933
B
-rw-r--r--
2021-05-10 17:28
cxr.scm
1.29
KB
-rw-r--r--
2021-05-10 17:28
eval.scm
1.39
KB
-rw-r--r--
2021-05-10 17:28
file.scm
1.1
KB
-rw-r--r--
2021-05-10 17:28
inexact.scm
2.14
KB
-rw-r--r--
2021-05-10 17:28
lazy.scm
976
B
-rw-r--r--
2021-05-10 17:28
load.scm
979
B
-rw-r--r--
2021-05-10 17:28
process-context.scm
1.97
KB
-rw-r--r--
2021-05-10 17:28
r5rs.scm
4.29
KB
-rw-r--r--
2021-05-10 17:28
read.scm
826
B
-rw-r--r--
2021-05-10 17:28
repl.scm
845
B
-rw-r--r--
2021-05-10 17:28
time.scm
1.11
KB
-rw-r--r--
2021-05-10 17:28
write.scm
979
B
-rw-r--r--
2021-05-10 17:28
Save
Rename
;;; R7RS compatibility libraries ;;; Copyright (C) 2019 Free Software Foundation, Inc. ;;; ;;; This library is free software: you can redistribute it and/or modify ;;; it under the terms of the GNU Lesser General Public License as ;;; published by the Free Software Foundation, either version 3 of the ;;; License, or (at your option) any later version. ;;; ;;; This library is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;; Lesser General Public License for more details. ;;; ;;; You should have received a copy of the GNU Lesser General Public ;;; License along with this program. If not, see ;;; <http://www.gnu.org/licenses/>. (define-module (scheme time) #:use-module (srfi srfi-19) #:export (current-jiffy current-second jiffies-per-second)) (define (jiffies-per-second) internal-time-units-per-second) (define (current-jiffy) (get-internal-real-time)) (define (current-second) (let ((t (current-time time-tai))) (+ (time-second t) (* 1e-9 (time-nanosecond t)))))